Reference if Checkbox is checked on Worksheet_Change

Hey folks,

I have another one for anyone willing to help.

I have 4 checkboxes on a worksheet and I am trying to reference each to set off a warning if the checkbox is checked in the following manner:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("Zone1_Section_Data")) Is Nothing Then
        If ActiveSheet.Shapes("CheckBox_Zone1") = True And Range("Zone1_InsertValue").Value <> "" And Range("Zone1_IntervalType").Value = "Song Interval" And Range("Zone1_SongInterval").Value <> "" Then
            Range("Zone1_Warning").ClearContents
        Else
            Range("Zone1_Warning").Value = "**Please update Zone Data"
        End If
    End If

End Sub

The following gives me a run-time error - "Object doesn't support this property or method".

Is there another way to reference whether the checkbox is checked or not? Is my code anywhere close?

Thanks in advance.