Sub Test() Dim n As Long CountFields = ActiveSelection.Shapes(1).ObjectData.Count MsgBox CountFieldsEnd Sub