For Multiple Checkbox assign Cells

I have fund this macro:

Sub LinkCheckBoxes()
Dim chk As CheckBox
Dim lCol As Long
lCol = 2 'number of columns to the right for link

For Each chk In ActiveSheet.CheckBoxes
With chk
.LinkedCell = _
.TopLeftCell.Offset(0, lCol).Address
End With
Next chk

End Sub

And it works perfect when I have only checkbox in one column but when I have three or more then it won't work.

Has any of you come across Macro that can for every checkbox assign cell (true/false) even if you have three columns of checkbox.

Thank you,

Sab