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