Hi All

Please see attached sheet.

What I am after is a code for a pop up message to appear when a cell in column C or D is equal to todays date and the message to either say that the corresponding item is ready or an item is ready to read

dummy workbook.xls

I have the following code but I can only get it to work for 1 cell at a time, what I would like is for it to work for the range of cells in C and D. (The range here isnt defined, it will end up growing)

Option Explicit
Private Sub Workbook_Open()
If ActiveSheet.Range("c5") >= Date Then
       
Dim msg As Long
    
    msg = MsgBox("Readback", vbOKOnly, "OK to continue")
End If
End Sub
Many thanks

Neil