This is a clumsy way to do this, but it should work:
Dim o As Object For Each o In Worksheets("Sheet1").Shapes MsgBox o.Name Next o
There is also a hidden element in the DropDowns collection of the Worksheet object that you could iterate over. This will find elements inserted from the Forms toolbar, but not finding elements inserted from the Control Toolbox
barrowc
source share