WeekdayName(Weekday(Date))
Sub Main3() Debug.Print "Today's date is: " & Date Debug.Print "The name of the week day is: " & WeekdayName(Weekday(Date)) End Sub