With Worksheets("sheet1")
If .Range("B1").Value .Range("A1").Value Then
Dim Res As Long
Res = MsgBox("Reminder date has expired")
Cancel = Res < 6

End If
End With

"deepak" wrote:

Hello Again!

Can we pop out a message box as a reminder in excel when a certain condtion
is triggered? Say A1=14-Sep-09 and B1=today(). Since, B1 has exceeded A1 so a
message box as a reminder would pop out to alert.

Thanks in advance.