Hi
this can be done using the workbook_open event (right mouse click on a sheet
tab, choose view code, on the left in the project explorer double click on
"ThisWorkbook" underneath where you see the name of your workbook, the code
goes in the right hand side of the screen)
e.g.
Private Sub Workbook_Open()
If Format(Now, "dd/mm/yyyy") = Format(Sheets(1).Range("C3"),
"dd/mm/yyyy") Then
MsgBox "Happy Birthday"
End If
MsgBox "Don't forget to enter the next number into cell D6"
Sheets(1).Range("D6").value = InputBox("What number?")
End Sub
Cheers
JulieD