Linked Cell Macro

[mrlnmarce]

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

 

[Tom Ogilvy]

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