Hallo,
in Excel wüde es bei ActiveX-Elementen so gehen.
Dim sh As Worksheet Dim cb As Object ' ComboBox Set sh = ActiveSheet For Each cb In sh.OLEObjects MsgBox TypeName(cb.Object) Next cb