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
'<<=============
---
Regards,
Norman
"GreenBean" wrote in message
...
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