Force user to enter info

[tphillips]

I have a spreadsheet where the user enters information in cells A1, B1, C1, then D1. The next day they enter into A2, B2, C2, and D2, and so forth each day. If a user fails to enter data into the D column, after entering into A, B, and C, I want warning to pop-up saying "please enter into D column". I want it to pop-up when they attempt to save the file.

 

[Todd Bardoni]

Paste this code in ThisWorkbook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.Range("C65536").End(xlUp).Select
ActiveCell.Offset(0, 1).Range("A1").Select
If Selection = "" Then
Cancel = True
MsgBox "Please enter into D column.", vbExclamation
End If
End Sub