MS Excel 2004/2008 Automating checkboxes' cell links to relative cells

Scripting Forums AppleScript | Mac OS X
#1

I have a form with columns A-G, 1000+ rows.
Column G consists of check boxes, one for each row.
I need the linked cell for each checkbox to be the cell on which that check box is located.
So Row 50, column G, the cell linked to is $G$50.

I have to do each link manually: Select checkbox, go to Format Control, type in (or click in) the relative cell, then click OK, and on to the next checkbox in the following row.

There should be some way to have this scripted, yes?

I came across this little macro/script for drop down menus: http://groups.google.com/group/microsoft.public.mac.office.excel/browse_thread/thread/47cc8de6264f3bb1/460ce51bd68fd73e?lnk=gst&q="cell+link"#460ce51bd68fd73e


Public Sub SetSelectedDropDownLinks() 
       Dim dd As Object 
       If TypeOf Selection Is DrawingObjects Then 
            For Each dd In Selection 
                If TypeOf dd Is DropDown Then 
                    With dd 
                       .LinkedCell = .Parent.Cells( _ 
                            .TopLeftCell.Row, "C").Address 
                    End With 
                End If 
            Next dd 
        End If 
    End Sub

but I can’t seem to get it to work for me re: checkboxes.

Can someone suggest anything?

Thanks in advance.

added:

would this work?


Sub Macro1()
'
' Macro1 Macro
' Macro recorded 5/5/2010 by Amy Kunce
'

'
    ActiveSheet.Shapes("Check Box").Select
    With Selection
        .Value = xlOff
        .LinkedCell = "$G$"
        .Display3DShading = False
    End With
End Sub