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

"Tim Childs" wrote:

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 Mike

Thanks for that - worked a treat.

Tim

"Mike H" wrote in message
...
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

"Tim Childs" wrote:

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


.