My code is below.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim i As Long
    Dim cnt As Long
    cnt = 0
    With Sheet1
        For i = 1 To 7
            If .OLEObjects("Checkbox" & i).Object.Value = "True" Then
                cnt = cnt + 1
            End If
        Next
    End With
    If cnt = 0 Then
        MsgBox "Select at least ONE location."
        Cancel = True
        Exit Sub
    End If

    Dim c As Range
        For Each c In Range("F63")
            If c.Value = "0" Then
                Cancel = True
                MsgBox "Enter DATE in Minor Problem Behavior."
                Exit Sub
            End If
        Next c

    Dim c As Range
        For Each c In Range("F56")
            If c.Value = "FALSE" Then
                Cancel = True
                MsgBox "Enter STUDENT NAME"
                Exit Sub
            End If
        Next c

    Dim c As Range
        For Each c In Range("F57")
            If c.Value = "FALSE" Then
                Cancel = True
                MsgBox "Enter GRADE"
                Exit Sub
            End If
        Next c

    Dim c As Range
        For Each c In Range("F58")
            If c.Value = "FALSE" Then
                Cancel = True
                MsgBox "Enter DATE/TIME"
                Exit Sub
            End If
        Next c

    Dim c As Range
        For Each c In Range("F59")
            If c.Value = "FALSE" Then
                Cancel = True
                MsgBox "Enter REFERRING STAFF"
                Exit Sub
            End If
        Next c

    Dim c As Range
        For Each c In Range("F60")
            If c.Value = "FALSE" Then
                Cancel = True
                MsgBox "Enter PARENT/GUARDIAN NAME"
                Exit Sub
            End If
        Next c

    Dim c As Range
        For Each c In Range("F61")
            If c.Value = "FALSE" Then
                Cancel = True
                MsgBox "Enter PHONE #"
                Exit Sub
            End If
        Next c

    Dim c As Range
        For Each c In Range("F62")
            If c.Value = "FALSE" Then
                Cancel = True
                MsgBox "Enter INCIDENT DESCRIPTION"
                Exit Sub
            End If
        Next c

End Sub
I had only the checkbox and Select at least ONE location which worked. I then added the Enter DATE in Minor Problem Behavior. It worked. Then I added the rest. Now I get the error "compile error: duplicate declaration in current scope."

I do not know what to do to fix.