With ActiveSheet.OptionButtons("Option Button 168")
.Value = xlOn
.LinkedCell = .TopLeftCell.Address(external:=True)
.Display3DShading = False
End With
End Sub

--
Regards,
Tom Ogilvy

mrlnmarce wrote in message
...
Hi there,

I am working on a macro that will allow me to assign the Linked Cell to
a Option (radio) Button. I have a spreadsheet where each row has a set
of option buttons. I need the Linked Cell macro to be a relative one.
When I try to record a relative macro, it just assigns an absolute
value to the Linked Cell column. The code is below. Any ideas?



Sub LINKTEST()
'
' LINKTEST Macro
' Macro recorded 9/26/2003 by M'

'
ActiveSheet.Shapes("Option Button 168").Select
With Selection
Value = xlOn
LinkedCell = "$H$103"
Display3DShading = False
End With
End Sub



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/