PDA

View Full Version : Solved: WEEK DAY REMINDER



BENSON
07-09-2007, 12:19 AM
A simalar question to a previous post. how would I change the code below to give me a MSG BOX if the day of the week was a Tuesday when the week book was opened

THKS



Private Sub Workbook_Open()
If Day(Date) >= 27 Then MsgBox "TO DAY IS TUESDAY RESET DATES."
End Sub

RichardSchollar
07-09-2007, 12:23 AM
Hi

Private Sub Workbook_Open()
If Weekday(Date) = vbTuesday Then MsgBox "TODAY IS TUESDAY RESET DATES."
End Sub

Richard

Bob Phillips
07-09-2007, 12:26 AM
Private Sub Workbook_Open()
If Weekday(Date, vbSunday) =vbTuesday Then MsgBox "TO DAY IS TUESDAY RESET DATES."
End Sub

BENSON
07-09-2007, 12:29 AM
THANKS ALOT GUYS