Excel Popup Reminder - Doesn't popup

Hi

I am trying to create a reminder for some dates. A popup message should appear 30 days before the date, but currently when I test the code nothing happens. Please help.

Please Login or Register  to view this content.

Run your macro step-by-step and watch the expression "RemStatus = "Due soon" And DateDiff("d", DueDate, Date) >= -30"

Hi

I pressed F8 to run but nothing happened.

Thanks

if you show me your file, I`ll could help you more efficient

Originally Posted by lancer102rus

if you show me your file, I`ll could help you more efficient

Hi

Please find attachment.

Thanks

1) Workbook_Open procedure must be written in ThisWorkbook and not in Sheet1
2) You calculate Issue wrong. Change in 2 places of your code to this:

Please Login or Register  to view this content.

Hi

I added and move the code as you suggested but still no popup message, however Column H and I changed colour according to the Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 2
but I only want the "Due soon" ones to change colour not "Expire" ones.

Any ideas? Thanks

In your example file you check dates for expiration: DateDiff("d", DueDate, Date) >= 0
use DateDiff("d", DueDate, Date) >= -30 instead of this, and be sure that you has such dates (e.g. 2015.04.01)

Hi

Thanks for your help is finally working now.