delta
Copy next to Sheet1's code sheet
and You'll get Messages ... many!
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A5") = Empty Or Range("D15") = Empty Or Range("H10") = Empty Then MsgBox "Fill all the filed"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A5") = Empty Or Range("D15") = Empty Or Range("H10") = Empty Then MsgBox "Fill all the filed"
End Sub