In that case, you might use something like:
Code:
Private Sub FileSave()
Call FieldCheck
End Sub
Private Sub Document_Close()
Call FieldCheck
End Sub
Private FieldCheck()
Select Case ActiveDocument.FormFields("drop").Result
Case "Internal"
If ActiveDocument.FormFields("mob_ph_check").CheckBox.Value = False And ActiveDocument.FormFields("broad_check").CheckBox.Value = False And ActiveDocument.FormFields("car_check").CheckBox.Value = False And ActiveDocument.FormFields("vsp_check").CheckBox.Value = False Then
MsgBox "Are you sure that contract should be without benefits?", vbOKOnly
End If
Case "Permanent"
If ActiveDocument.FormFields("mob_ph_check").CheckBox.Value = False And ActiveDocument.FormFields("broad_check").CheckBox.Value = False And ActiveDocument.FormFields("car_check").CheckBox.Value = False And ActiveDocument.FormFields("vsp_check").CheckBox.Value = False Then
MsgBox "Are you sure?", vbOKOnly
End If
End Select
End Sub