Weekday Function
Private Sub CommandButton1_Click() Range("A1").Value = Weekday("15-Sept-2016") Range("A2").Value = Weekday(Date) Range("A3").Value = Date End Sub