For completeness, if you're using an ActiveX checkbox instead of a regular checkbox, the syntax is
If Sheet1.Shapes("chkMyCheck").OLEFormat.Object.Object.Value Then
...
found using the Locals window and a variable set to the shape -
Dim shp as Shape
Set shp = Sheet1.Shapes("chkMyCheck")
Stop