Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim box As OLEObject
For Each box In Worksheets("SEARCH ENGINE").OLEObjects
If box.Name Like "CheckBox *" Then
If box.Object.Value = True Then
box.Object.Value = False
End If
End If
Next box
End Sub