Run Code from User Form when Check box Clicked

[rpaulson]

I have the following code in my Private Sub UserForm_initialize() section of my user form.

It will programmatically create many check boxes. this part actually works as planned.

r = 1
For c = 2 To 14
    Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & c)
    chkBox.Caption = Cells(10, c).Value
    chkBox.Left = 500
    chkBox.Top = 50 + ((r - 1) * 20)
    
    If Columns(c).ColumnWidth = 0 Then chkBox.Value = True 'delaut check boxes to true if data in row 11
    r = r + 1
Next c

the issue is, I do not know how to trigger a click event

The below does not seem to work:

Private Sub CheckBox_3_Click()
MsgBox "Box 3 clicked"
End Sub

any ideas?

Thanks,
Ross

 

[rpaulson]

Logit,

I want the code to run when the CHECK BOX is clicked, NOT CommandButton2_Click

 

[Logit]

Private Sub CheckBox6_Click()
If Me.CheckBox6.Value = True Then
    Range("A7").Select
    ActiveCell.Value = "BOX 6"
    Range("A1").Select
    MsgBox "Done"
  End If
End Sub

 

[NoSparks]

Perhaps mikerickson can shed some light on the issue