Code Snippet - Forms from Control Box toolbar

  • Thread starter Thread starter Tim Childs
  • Start date Start date
T

Tim Childs

Hi

If someone has put radio buttons etc on a worksheet, what is the easiest way
to list these objects i.e. the object names for each object on the sheet

Thanks

Tim
 
Hi,

Run this code and they will be listed in column A

Sub marine()
Dim OleObj As OLEObject
x = 1
For Each OleObj In ActiveSheet.OLEObjects
Cells(x, 1) = OleObj.Name
x = x + 1
Next OleObj
End Sub

Mike
 
Hi Mike

Thanks for that - worked a treat.

Tim

Mike H said:
Hi,

Run this code and they will be listed in column A

Sub marine()
Dim OleObj As OLEObject
x = 1
For Each OleObj In ActiveSheet.OLEObjects
Cells(x, 1) = OleObj.Name
x = x + 1
Next OleObj
End Sub

Mike
Click to expand...
 
Back
Top