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