Private Sub CheckBox1_Change()
msgbox "Test - CheckBox1")
End Sub

If you want to handle all checkboxes with a single event, you could use a
technique documented by John Walkenbach:

http://www.j-walk.com/ss/excel/tips/tip44.htm

--
Regards,
Tom Ogilvy


"John" wrote:

Thanks Tom, can this be done for the entire list of checkboxes? and would
you mind giving an example of the change event for a or any check box in the
sheet?

"Tom Ogilvy" wrote:

Yes, use the Change event of the checkbox.

--
Regards,
Tom Ogilvy


"John" wrote:

I want to fire code based on a check box being checked or unchecked. The
worksheet change event doesn't seem to recognise the True/False changes when
I check box is checked. My code is simple.

Private Sub Worksheet_Change(ByVal Target As Range)
'If Not Application.Intersect(Range("i31:i60"), Target) Is Nothing Then
If Not Intersect(Target, Range("i31:i60")) Is Nothing Then
MsgBox "test"
End If
End Sub

Where column I contains true or false as a cell value based on the checkbox.
Can I get this to fire off of check boxes themselves?