Dim sh as Worksheet
Dim oleObj as OleObject
for each sh in Worksheets
for each oleObj in sh.OleObjects
if typeof oleObj.Object is MSforms.OptionButton then
oleObj.Object.GroupName = sh.Name
end if
Next
Next


--
Regards,
Tom Ogilvy

"Shawn G." wrote in message
...
I have a sheet that has many OptionButtons, I have another shhet in the
same
workbook that has the same optionbuttons. Since I just copied the option
buttons from 1 page to another, each sheets group names are the same.

So I need to go through each OptionButton on the sheet and change the
GroupName to the sheet name And groupName.

ie: sheet1 has 3 option buttons grouped together named 1.1
I need to change all 3 option buttons GroupName to Sheet11.1
I have hundreds of groups like this so I need the VB to do the work.

Thank you!!!
This is what I have so far but doesn't work...

Sub FixButtons()

Dim shp As OptionButton
Dim strButName As String

For Each shp In Sheets(Sheet1).OptionButton
strButName = shp.GroupName
shp.GroupName = "Sheet1" + strButName
Next shp

End Sub

Error is "Object doesn't support this Property or method"