Error message if no data entered in text box
<p>Please suggest a vb code, that if the text box is left blank,and during TAB/Enter, the Error message box appears for each text box.</p>

<pre><code>Private Sub CommandButton1_Click()
   Sheets("Attendance").Select
   Range("a1").Select
   Do
      If IsEmpty(ActiveCell) = False Then
         ActiveCell.Offset(1, 0).Select
      End If
   Loop Until IsEmpty(ActiveCell) = True

   ActiveCell.Value = Me.d.Value
   ActiveCell.Offset(0, 1).Select
   ActiveCell.Value = Me.N.Value
   ActiveCell.Offset(0, 1).Select
   ActiveCell.Value = Me.Salary.Value
   ActiveCell.Offset(0, 1).Select
   ActiveCell.Value = Me.Remarks.Value
   ActiveCell.Offset(0, 1).Select
   ActiveCell.Value = Me.IT.Value
   ActiveCell.Offset(0, 1).Select
   ActiveCell.Value = Me.Outtime.Value
   ActiveCell.Offset(0, 1).Select
   ActiveCell.Value = Me.Lunch.Value
   ActiveCell.Offset(0, 3).Select
   ActiveCell.Value = Me.Advance.Value
   ActiveCell.Offset(0, 2).Select
   ActiveCell.Value = Me.Paid.Value
End Sub
</code></pre>