Coincidence or is there a relationship between the option button name having
the row number in it.

Dim ob as OptionButton
for each ob in activesheet.Optionbuttons
sName = ob.Name
rw = trim(Right(sName,2))
ob.LinkedCell = "'" & Activesheet.Name & "'!C" & rw
Next

--
Regards,
Tom Ogilvy


"John Jost" wrote in message
...
I am STILL working on a spreadsheet that uses a lot of Option Buttons (all
grouped nicely). I am finding that the "Cell Link" sometimes gets
disassociated from the original cell. I would like to fix this by writing
a
chunk of code for the ActiveSheet.OptionButtons. object, but don't know
how
to tell it that OptionButton (Option Button 17) should be linked to cell
C$17$ (which has a named value of "LV_PAXType".

Can someone help?