Weekday(date) returns A Variant/Integer containing the day of the week represented by date
Sub dateDemo16() Debug.Print Weekday(#4/1/2006#) End Sub