art,

try something like this. you will need to modify to your needs.

Sub test_checkbox()
Application.ScreenUpdating = False
Worksheets("sheet1").Activate
If ActiveSheet.[Check Box 4].Value = 1 Then
MsgBox "hi"
End If
End Sub


HTH

Charle

--
Message posted from http://www.ExcelForum.com