title: Error message if no data entered in text box
body: <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>