WeekdayName (weekday) returns A String containing the weekday denoted by weekday
Sub dateDemo17() Debug.Print WeekdayName(Weekday(#4/1/2006#)) End Sub