Well, here is the code:
Private sub CommandButton1_Click()
Dim fname as String
If cells(4,4)="" or isnull(cells(4,4)) or isempty(cells(4,4)) then
Msgbox "Input Highlighted field", vbCritical, "Missing Field"
Cells(4,4).select
Exit Sub
Elseif cells(5,4)="" or isnull(cells(5,4)) or...