Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Left(.GroupName,len(.GroupName)-1) & "5"
End With
Next OleObj

End Sub


--
Regards,
Tom Ogilvy


"GreenBean" wrote in message
...

"GreenBean" wrote in message
...

"Bob Phillips" wrote in message
...
Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Replace(.GroupName, .GroupName, .GroupName &
"4")
End With
Next OleObj

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"GreenBean" wrote in message
...
Hi all,

Whilst the code below changes all button names from GW2opt to GW4opt is
there a way to change group names e.g. change group 1a to 1a4 but using
a
wildcard char to replace 1a since I have groups 1b, 1c, etc. Simply,
Iwant
to add 4 to all group names!

Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj
.Name = Replace(.Name, "GW2opt", "GW4opt")

End With
Next OleObj
End Sub



Hi Bob,

I've tried the scipt and it doesn't like it - get run time error 438...I
tried something similar but with same outcome....
Sri Bob - tell a lie - it works once - didn't see the change first
time!!!ooops

Is there a way to use wild card since if I want to change 1a4 to 1a5 the
scipt will currently give 1a44?

tia