Macro Notification

LauraMuniak 

Here is an example code with an example file of how it could work.

The macro is automatically activated when the workbook is opened.

This macro will check the value in cell A1 for a due date. If there is a valid date, it calculates the number of days left until that due date. Then it displays notifications at 28, 14, and 7 days before the due date. If the due date is in the past or if there is no valid date in cell A1, no notifications will be displayed.

Sub DueDateNotification()
    Dim DueDate As Date
    
    ' Check if there's a date in cell A1
    If IsDate(Range("A1").Value) Then
        DueDate = Range("A1").Value
        
        ' Calculate the number of days until the due date
        Dim DaysLeft As Integer
        DaysLeft = DateDiff("d", Date, DueDate)
        
        ' Check if the due date is in the future
        If DaysLeft > 0 Then
            ' Notify 28 days before due date
            If DaysLeft <= 28 And DaysLeft > 14 Then
                MsgBox "You have 28 days until the due date.", vbInformation
            End If
            
            ' Notify 14 days before due date
            If DaysLeft <= 14 And DaysLeft > 7 Then
                MsgBox "You have 14 days until the due date.", vbInformation
            End If
            
            ' Notify 7 days before due date
            If DaysLeft <= 7 Then
                MsgBox "You have 7 days until the due date.", vbInformation
            End If
        End If
    End If
End Sub

My answers are voluntary and without guarantee!

Hope this will help you.

Was the answer useful? Mark as best response and Like it!

This will help all forum participants.