If these are in column A and your required fields are in column B then put this in the ThisWorbook module.Originally Posted by rajesh nag
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim i For i = 1 To 6 If Range("B" & i) = "" Then MsgBox "Please enter all mandatory fields!" Cancel = True End If Next End Sub