List Names of All ActiveX Objects on Sheet

[EldrckTW]

Hi all,

I'm looking for a simple vba code that will put all object names from a sheet into a list in column A. For example, the list would look like:

ComboBox1
ComboBox2
ComboBox3
SpinButton1
SpinButton2
...

I've been searching for a while with no luck. Anyone have any ideas?

Thanks!

 

[EldrckTW]

Came across this code...so far works for what I'm looking for, but may need to tweak a bit. If there's a cleaner way to do this I would love to hear.

    Range("A1").Select
    Dim PicObj As Object
    For Each PicObj In ActiveSheet.Shapes
        MyType = TypeName(PicObj.OLEFormat.Object)
        ActiveCell.Value = PicObj.Name
        ActiveCell.Offset(1, 0).Select
    Next PicObj

 

[Case_Germany]

Hi,

this example puts you on the right track...

Shape - Info...