Hi, I currently have the following code as worksheet activate code, it works fine but I would like to add in a message if date not found;
Private Sub Worksheet_Activate()
Dim DateRng As Range, DateCell As Range
Set DateRng = Range("2:2")
For Each DateCell In DateRng
If DateCell.Value = Date...