VBA Check date with message box

[Chickenmanc]

Hello,

I have multiple cell to check just doing one to test at the moment. I have a date in that is input to that cell I want to run a check to make sure its 3 months in the future. If not pop-up a message box letting the user know check the date.

Sub check_for_errors()
Dim cd As Date
cd = DateSerial(Year(Date), Month(Date) + 3, 1)
        
        If activeworksheet.Range("H23") < cd Then
            MsgBox "check your date"
        Else
        End If
        
End Sub
[code]

 

[jim may]

Check out and use the...
WorksheetFunction.EDATE(DATE, 3)
which should produce 7/11/2019
To compare to. You might need to add +1 or -1 to get exactly the cut-off date.

Jim