Maybe this will help:

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
Range("A1").Value = "This check box has been checked"
Else
Range("A1").Value = "This check box has been unchecked"
End If

End Sub


--
Bearacade
------------------------------------------------------------------------
Bearacade's Profile: http://www.excelforum.com/member.php...o&userid=35016
View this thread: http://www.excelforum.com/showthread...hreadid=548610