send keys

[ksnapp]

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 th
effect of clicking on it

regards
kevi

 

[Vasant Nanavati]

Using SendKeys is generally a very bad idea, unless no other alternative is
available. Usually there are far better ways of accomplishing your
objectives.

 

[Greg Wilson]

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