Results when multiple Checkbox exists

[sudarshank2]

Hi Guys,
I have list of checkbox in column A and if I select A1 then C1 need to be updated automatically and so on.

I have CheckBox LinkedCell as my references. See the below code (It will update the LinkedCell reference.)

Sub sourcecheckbox_Activate()
Dim i As Integer
Dim chk As Variant
i = 4


With Sheets("Basesheet")


For Each chk In .OLEObjects
If TypeName(chk.Object) = "CheckBox" Then
chk.LinkedCell = .Range("A" & i).Address
i = i + 1
End If
Next
End With
End Sub

Now I need to have to Click on the A1 then C1 need to be updated (A1 have Checkbox1, A2-CheckBox2 and so on)

 

[sudarshank2]

Adding on that i = 4 because I have headings so A4 I'll start (A4 - Checkbox1, so on)