renaming multiple buttons

[GreenBean]

Hi all,

I have a worksheet with lots of OptionButtons which are named from
OptionButtion1 through to OptionButton266. Unfortunately I need to rename
to GW2opt1, etc - Is there anyway I can do this without having to change
each name individually? I've tried some VB but to no avail......

Tia

 

[Norman Jones]

Hi Green Bean,

If the option buttons are from the Forms toolbar, try:

'=============>>
Public Sub Tester()
Dim OP As OptionButton

For Each OP In ActiveSheet.OptionButtons
With OP
.Name = Replace(.Name, "OptionButton", "GW2opt")
End With
Next OP
End Sub
'<<=============


If, however, the option buttons are from the Controls Toolbox, try:

'=============>>
Public Sub Tester2()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj
.Name = Replace(.Name, "OptionButton", "GW2opt")
End With
Next OleObj
End Sub
'<<=============

 

[GreenBean]

The second one worked perfectly - many thanks for help and saving me a
tedious task...