Depending what you require, but something like:
Private Sub CheckBox1_Click()
Const ExtraValue As Long = 25
If CheckBox1.Value = True Then
Range("A1").Value = Range("A1").Value + ExtraValue
Else
'Decide what you do here
End If
End Sub

NickHK

"emel24" wrote in
message ...

Can anyone please tell me how to put a checkbox in an Excel Spead Sheet
and when it is checked to add a value to a field?

Thanks in advance.


--
emel24
------------------------------------------------------------------------
emel24's Profile:
http://www.excelforum.com/member.php...o&userid=20004
View this thread: http://www.excelforum.com/showthread...hreadid=556792