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