Assuming a worksheet based check box from the Forms tool
bar and you want to run a macro only when it's checked:

Sub ToggleCheckBox()
With Sheets("Sheet1").Shapes("Check Box 1").ControlFormat
If .Value = 1 Then
.Value = -4146
Else
.Value = 1
Call CheckBoxIsChecked
End If
End With
End Sub

Sub CheckBoxIsChecked()
MsgBox "Hello"
End Sub

Works for me.

Regards,
Greg

-----Original Message-----
hi,

is there a way send keys can check a check box?

I can select the line next to it but i can't figure a way
to get the
effect of clicking on it

regards
kevin


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

.