How to populate cell contents based on ActiveX checkbox?

[Ayugma]

Hi all, how would I populate a specific cell when a checkbox is checked? I tried the code below, but it doesnt change the cell value automatically. Any help would be appreciated.

Private Sub CommandButton9_Click()
If CheckBox1.Value = True Then
    Range("A109").Value = "ZJ2"
ElseIf CheckBox1.Value = False Then
    Range("A109").ClearContents
    If CheckBox2.Value = True Then
    Range("A109").Value = "ZJ3"
ElseIf CheckBox2.Value = False Then
    Range("A109").ClearContents
End If
End If

End Sub

 

[Ayugma]

Never mind, I'm just getting confused. The code does what is intended. Thank you!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[Ayugma]

Sorry to reopen the thread again, but I was wondering how about autofilling one cell based on multiple checkbox inputs?

 

[Fluff]

You already have a thread running for that don't you?

 

[Ayugma]

You already have a thread running for that don't you?

Whoops sorry, this sent after that yes, my bad

Can I delete comments on here? I'm not sure how to.