Hi Shay,
you can copy this and paste in your workbook_open() event. This should
meet what you want
Private Sub Workbook_Open()
Dim RemindTime As Integer
Dim B As Boolean
Dim C As Boolean
RemindTime = 5 'set to whatever days you prefer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
B = (ActiveSheet.Cells(i, 1) - Date) < RemindTime
C = (ActiveSheet.Cells(i, 1) - Date) > 0
If B And C Then
MsgBox ActiveSheet.Cells(i, 2) & " is coming in " &
(ActiveSheet.Cells(i, 1) - Date) & "days "
End If
Next i
End Sub
Vincent Zheng
On Tue, Mar 31, 2009 at 8:02 AM, shay shay <shahinarafi...@gmail.com> wrote:
> Hi All,
>
> this question was asked byone of our memgers, wherein as soon an excel
> opens it has a list of reminders and it shows as a message box to the recent
> date.
>
> Kindly forward me the solution as I am not able to find in my inbox.
>
> Regards,
> Shay
>
>
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
