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" <(E-Mail Removed)> wrote in message
news:917C4C78-7A4D-46C2-98D8-(E-Mail Removed)...
> 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
>>
>>
>> .
>>