VBA pop-up reminder for date column

[user294390]

Hi,

I am compiling a database and require pop-up alerts for one date column. My spreadsheet is like this:
Column A - vendor name
Column B - expiry date of subscription
and several columns beyond, with other details like address, products etc.

I am trying to add a message box alert 7 days before the date as well as on that date, showing "Subscriptions expiring in 7 days for <corresponding vendor names in column A>"
or "Subscriptions expiring today for <corresponding vendor names in column A>" according to the date.
Would appreciate any help with this, thank you!

 

[user294390]

I'm actually liking how the pop-ups show every time I toggle between sheets so I'm considering splitting my data into two sheets:
- The original Sheet 1 exclusively for the subscription dates with the code
- The Landing sheet for all the other data

If I rename Sheet 1 as "Subscriptions" & Landing as "Vendor details" and make no additions to the code, will it be okay, should any changes be made to the code? The landing sheet will display first on opening the workbook.

Also, thank you for grouping all the messages together in a single box!

 

[Yongle]

1. In "Landing" code window

Private Sub Worksheet_Activate()
    Sheets("Sheet1").Visible = True
    Me.Visible = False
End Sub

2. In ThisWorkbook code window

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets("Landing").Visible = True
    Sheets("Sheet1").Visible = False
End Sub

3. Save, close and reopen the workbook

Let me know if there are any problems