Message box for birthday

Posted by Paul on March 29, 2001 6:25 PM

Cell A1 has =today() what I want to do is have a macro run automatically when the date in cell A1 gets to 4-10-2001,or if the date could be put in the marco would be better, and a message box pop up to say Happy Birthday! And the number 10 put in cell D1. Thanks for your help in advance.

Posted by Dave Hawley on March 29, 2001 10:21 PM

Hi Paul

Right click on the sheet picture, top left next to "File" and paste in this:

Private Sub Workbook_Open()
If Sheets("Sheet1").Range("A1") = 4 - 10 - 2001 Then
MsgBox "Happy Birthday Fred", vbOKOnly, "From Me"
Sheets("Sheet1").Range("D1") = 10
End If

Dave

OzGrid Business Applications