Change linked cell in check box

I have this code that works perfectly to add checkboxes down a column according to the current selection of cells on the sheet. The code creates a linked cell under each check box as it inserts each one. I want to change the linked cell address so that it is on the same row as the box but in Column "AA" instead of the same column of the checkboxes. look for .LinkedCell=c.Address
Here is the code:

Sub AddCheckBoxes()
    On Error Resume Next
    Dim c As Range, myRange As Range
    Set myRange = Selection
    For Each c In myRange.Cells
        ActiveSheet.CheckBoxes.Add(c.Left, c.Top, c.Width, c.Height).Select
            With Selection
                .LinkedCell = c.Address
                .Characters.Text = ""
                .Name = c.Address
            End With
            c.Select
            With Selection
                .FormatConditions.Delete
                .FormatConditions.Add Type:=xlExpression, _
                    Formula1:="=" & c.Address & "=TRUE"
                .FormatConditions(1).Font.ColorIndex = 6 'change for other color when ticked
                .FormatConditions(1).Interior.ColorIndex = 6 'change for other color when ticked
                .Font.ColorIndex = 2 'cell background color = White
            End With
        Next
        myRange.Select
End Sub

Hi JJGF,

Please take a moment to go over the Forum rules again, and wrap your Code as per the specified requirement.

Hi JJGF,

Good! Thank you for sharing it with the Forum.