Msgbox if todays date is less than date in range??

[BDexcel]

Can someone help please?

I have a range of cells (B2-E10) which have a number of important dates I require to track.

Can I code that when I open the workbook if todays date is less than or equal to the 5 dates leading up to any of the important dates a msgbox will appear?

Any help appreciated.

 

[igold]

Try this pasted into the "ThisWorkbook" module...

Don't forget to change the sheet name if needed.

Private Sub Workbook_Open()
    Dim i As Integer
    Dim dt As Range: Set dt = Worksheets("Sheet1").Range("B2:E10")
    For i = 1 To dt.Cells.Count
        If dt(i).Value - Date <= 5 And dt(i).Value - Date > 0 Then MsgBox dt(i) & " Is Due In " & dt(i).Value - Date & " Days"
    Next
End Sub

 

[BDexcel]

Thanks so much igold! worked perfect

 

[igold]

You're welcome. Thanks for the feedback!