My code is below.
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."![]()
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 do not know what to do to fix.
Bookmarks