I got it!!
Thanks a lot Keith and Tom!


"Tom Ogilvy" wrote in message
...
Keith's code works for a checkbox from the control toolbox toolbar.

Perhaps you have a control from the Forms toolbar. If so
Dim MyFlag As Boolean
If ActiveSheet.Checkboxes("Check Box 1").Value = 1 Then
MyFlag = True
End If
MsgBox MyFlag

--
Regards,
Tom Ogilvy

"German" <german.koninin@crm-worldwideDOTnet wrote in message
...
It says "Unable to get OLEObject property of Worksheet class".


"Keith Willshaw" wrote in message
...

"Mike Tomasura" wrote in
message
...
create a command button
go into design mode
double click on the command button
paste this code:

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
CheckBox1.Value = False
Else
CheckBox1.Value = True
End If

End Sub


I dont think thats what he was asking though

From a VBA procedure you can get the value as follows

Dim MyFlag As Boolean
If ActiveSheet.OLEObjects("CheckBox1").Object.Value = True Then
MyFlag = True
End If
MsgBox MyFlag


Keith