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


.