RE: $$Excel-Macros$$ Message box- for Reminder of Due date

box- for Reminder of Due date Paste the following macro in the « thisworkbook » module : Private Sub Workbook_Open() Dim c As Range, txt As String With Sheets("Sheet1") For Each c In .Range(.[B2], .Cells(Rows.Count, 2).End(xlUp)) If c.Offset(, 5).Value =

RE: $$Excel-Macros$$ Message box- for Reminder of Due date

Paste the following macro in the « thisworkbook » module : Private Sub Workbook_Open() Dim c As Range, txt As String With Sheets("Sheet1") For Each c In .Range(.[B2], .Cells(Rows.Count, 2).End(xlUp)) If c.Offset(, 5).Value = Date Then txt = txt &