Consulting

Results 1 to 4 of 4

Thread: Solved: WEEK DAY REMINDER

  1. #1
    VBAX Contributor
    Joined
    Dec 2006
    Posts
    193
    Location

    Solved: WEEK DAY REMINDER

    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

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

  2. #2
    VBAX Contributor
    Joined
    Aug 2006
    Location
    Hampshire, UK
    Posts
    140
    Location
    Hi

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

    Richard

  3. #3
    Distinguished Lord of VBAX VBAX Grand Master Bob Phillips's Avatar
    Joined
    Apr 2005
    Posts
    25,453
    Location
    [vba]

    Private Sub Workbook_Open()
    If Weekday(Date, vbSunday) =vbTuesday Then MsgBox "TO DAY IS TUESDAY RESET DATES."
    End Sub
    [/vba]
    ____________________________________________
    Nihil simul inventum est et perfectum

    Abusus non tollit usum

    Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
    James Thurber

  4. #4
    VBAX Contributor
    Joined
    Dec 2006
    Posts
    193
    Location
    THANKS ALOT GUYS

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •