Some code;
Private Sub DateReminder()
Dim LastRow As Long
Dim yesterdaysDate As Date
Dim AlertDate As Date
Dim dateRange As Range
Dim foundDate As Range
Dim firstName As String
Dim lastName As String
Dim phoneNumber As String
Dim eMail As String
AlertDate = DateSerial(Year(Date), Month(Date)...