![]() |
#8
|
|||
|
|||
![]()
enter in cell B8 this formula =WEEKDAY(B7), and refer in your code to cell B8...
Now, this part of the code should work If Not Weekday(Worksheets("SETUP").Range("B8")) = 2 Then MsgBox "Start Date must be a Monday (week beginning)", vbInformation Range("B7").Select ValidateFields = True Exit Function End If |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
parnol01 | Project | 1 | 12-16-2015 09:30 AM |
![]() |
Daria11 | Word VBA | 1 | 06-08-2011 06:54 PM |
![]() |
Ultrap3 | Word | 2 | 02-04-2011 02:53 PM |
![]() |
Ziggy-R | Word | 10 | 09-28-2010 01:42 AM |
Adding dates | mkkram | Word | 0 | 11-27-2006 09:18 AM |