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

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

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


"Norman Jones" wrote in message
...
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