Query list of objects and properties in VBA

[bshawnr]

I have several macros created with forms that have about 100 objects on the form. The objects are all named the default "checkbox1, optionbutton10", but are identified in the "Caption" field in properties. Can I get a list of the objects, and their captions for each form?



Thanks.

[fumei]

You do not state what you want to do with this list. Write to another document perhaps. In any case this may help you get started.

Sub ListCaptions()
Dim oCtl As MSForms.Control
For Each oCtl In UserForm1.Controls
   If TypeOf oCtl Is MSForms.CheckBox Or _
      TypeOf oCtl Is MSForms.Label Or _
      TypeOf oCtl Is MSForms.OptionButton Then
      MsgBox oCtl.Name & vbTab & oCtl.Caption
   End If
Next
End Sub

This gets the values for the controls that DO have Captions. For example textboxes, comboboxes do NOT have Captions. Thus they are not included in the test.