Pop up Reminder on Multiple sheets

[Laura Graham]

Hi there,
I have this code, firstly it doesn't pick up the dates on REPS CHECKLIST NEW sheet, secondly it WAS running but not running anymore, and when it did run It would give an error on If cell.Value = Date Then
I want it to give me a pop up message reminder - Names in Column A and Dates from Column D:W

Private Sub Workbook_Open()
Dim ws As Worksheet
Dim RunOn As String
Dim cell As Range
RunOn = "|LEADS NEW CHECKLIST|REPS NEW CHECKLIST|"
For Each ws In ThisWorkbook.Sheets
If InStrRev(RunOn, "|" & ws.Name & "|") > 0 Then
For Each cell In ws.Range("D3:W2000")
If cell.Value = Date Then
MsgBox ("Follow Up with" & " ") & ws.Range("A" & cell.Row).Value & " - " & ws.Name
End If
Next cell
End If
Next ws
End Sub

 

[Herakles]

Try using the ISDATE function to check to see whether the cell contains a date.

 

[Laura Graham]

Try using the ISDATE function to check to see whether the cell contains a date.

all the columns from D to W contains dates

 

[Herakles]

So what are you checking for in your code?

If cell.value = Date or cell.value = Date

 

[Laura Graham]

So what are you checking for in your code?

If cell.value = Date or cell.value = Date

So i want a pop up when the workbook opens to search on Both sheets to say Follow up with "Name in Column A" if the dates in Column D:W are todays dates

 

[Herakles]

What error message you are getting?

I've tried doing the same thing and it works fine for me