Hi, I have 20 checboxes, and i need the same principle for each,

Sub checkbox1_click()

If CheckBox1.Value Then
Range("l6").Formula = "=K33"
Else
Range("l6").Value = 0
End If
End Sub


So I have so far:

For each checkbox in wks
If CheckBoxa.Value Then
Range("l(a+1)").Formula = "=$K$33"
Else
Range("l(a+1)").Value = 0
End If
End Sub