It works fine if the checkbox is a control toolbox checkbox, and if you put
the code in that sheet code module.

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)
"riggi" wrote in message
ups.com...
Hi,
I am trying to write this checkbox code, I dunno for some reason its
not working. Please tell me whats wrong in it. I will really
appreciate.

Thanks,

Riggi


Sub CheckBox1_Click()

If Checkbox1.Value = True Then
MsgBox (" Checked ")
Else
MsgBox ("unchecked")
End If
End Sub