Macro with Message Box for Date Greater Than Today

[rhmkrmi]

Hi there, I need a VBA to be used in Excel to check a couple of columns (F:F, H:H, N:N) to see if any cell in those columns contain a date that is greater than today and pop up a message. Could you please help?

Thank you.

 

[rhmkrmi]

When it finds the future dates the first time it pops up a message and then any data entry whether it is text or date in any cell triggers the message to pop-up!
I want it to pop-up once any time a future date is entered in columns F, H, and M.

Thank you.

 

[Fazza]

When it finds the future dates the first time it pops up a message and then any data entry whether it is text or date in any cell triggers the message to pop-up!

Yes, that is exactly what you asked for‼

I want it to pop-up once any time a future date is entered in columns F, H, and M.

Then maybe this? This will give the message once.

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next
    If Len(ThisWorkbook.Names("FutureDate").Name) > 0 Then DoEvents
    If Err <> 0 Then ThisWorkbook.Names.Add Name:="FutureDate", RefersTo:=False
    On Error GoTo 0

    If ThisWorkbook.Names("FutureDate").RefersTo = "=FALSE" Then
        If Application.WorksheetFunction.Max(Columns("F"), Columns("H"), Columns("N")) > Date Then
            ThisWorkbook.Names("FutureDate").RefersTo = True
            MsgBox "Please check your dates"
        End If
    End If

End Sub

If you want some other variation please modify to suit.