CheckBox

Private Sub CheckBox1_Click()
Dim i%
If CheckBox1.Value = True Then
i = Range("F12").Value
If Not IsNumeric(i) Then Exit Sub
Range("m" & i) = 1
Else
End If
End Sub

In F12 wird von 1 bis 30 gezählt. Das Funktioniert auch gut.
Ich möchte aber, wenn in einer Zelle von M1 bis M30 schon die Zahl 1 steht, daß automatisch der Haken in die CheckBox eingetragen wird. Ist das zu lösen?

mfg
Steffen