Sub Test()
Dim Ctrl As OLEObject
For Each Ctrl In ActiveSheet.OLEObjects
MsgBox Ctrl.Name
Next Ctrl
End Sub
Sub Test()
Dim Ctrl As OLEObject
Dim x As String
For Each Ctrl In ActiveSheet.OLEObjects
On Error Resume Next
MsgBox "Control Type is " & TypeName(Ctrl.Object)
x = Ctrl.Object.Caption
If Err <> 0 Then
MsgBox TypeName(Ctrl.Object) & " controls do not have a Caption"
Else
MsgBox "Caption is " & Ctrl.Object.Caption
End If
Next Ctrl
End Sub