I'm designing quite a large form , which uses legacy text boxes for customers to fill in sections such as personal details, etc. I also use Activex ComboBoxes for Drop Down lists and also use the legacy checkboxes.

What I need help with is setting each up as mandatory fields. The legacy text boxes can be sorted each with a macro:

Sub MustFillIn()
If ActiveDocument.FormFields("ReferringSchool").Resul t = "" Then
Do
sInFld = InputBox("Please provide the name of the referring school")
Loop While sInFld = ""
ActiveDocument.FormFields("ReferringSchool").Resul t = sInFld
End If
End Sub

But i have no idea how to make an activex combobox (drop down list) mandatory - or msg to pop up if empty