I am writing a simple procedure to uncheck a checkbox if a certain condition is met but I think it is executing the whole procedure on value change. Try pasting this code into excel after creating a checkbox. Not sure why the msgbox comes up again after I click on no.

Private Sub CheckBox1_Click()
Dim s As Integer

s = MsgBox("Delete numbers?", vbYesNo)
If s = vbYes And CheckBox1 = True Then
    'Do stuff
Else
    'erase tick in checkbox since nothing was done
    CheckBox1 = False
    'This is where it brings up the msgbox again which it shouldn't
End If

End Sub


Thanks!

Try this one

Private Sub CheckBox1_Click()
Dim s As Integer
Static i As Integer

If i = 1 Then
    i = 0
    Exit Sub
End If

s = MsgBox("Delete numbers?", vbYesNo)
If s = vbYes And CheckBox1 = True Then
    'Do stuff
Else
    'erase tick in checkbox since nothing was done
    i = i + 1
    CheckBox1.Value = False

    'This is where it brings up the msgbox again which it shouldn't
End If

End Sub

-vemaju