Automatically update cell link of activex checkboxes

[Empirer]

Hi All,

Would like your help on a vba code that would update the cell link of activex checkboxes for each row.
I currently have 3 checkboxes in AL2, each of the checkboxes link to a different column; first checkbox links to column AN2, second links to AO2, third links to AP2.
When copying down the checkboxes up to row 100, the cell links remains linked to row 2.

Kindly assist in providing a vba to update these cell links.

 

[NoSparks]

Change the b in "Checkbox" to upper case so the line is

If TypeName(chkBox.Object) = "CheckBox" Then

added this Edit:
How did I discover that ?
I ran the code one line at a time using the F8 key and saw that nothing was satisfying the If statement.

 

[Empirer]

Change the b in "Checkbox" to upper case so the line is

If TypeName(chkBox.Object) = "CheckBox" Then

added this Edit:
How did I discover that ?
I ran the code one line at a time using the F8 key and saw that nothing was satisfying the If statement.

Thank you, works like a charm. Apologies for my sloppy mistake.

 

[NoSparks]

You're welcome, glad we got it working.