Even simpler. Since the data source of a checkbox is a boolean value
this will work.

Sub Macro1()

If Sheets("Sheet1").Range("H20") Then
MsgBox "Checked"
Else
MsgBox "Not Checked"
End If

End Sub



*** Sent via Developersdex http://www.developersdex.com ***