Working day or Holiday?
Private Sub CommandButton1_Click()
For i = 1 To 101
Cells(i, 1).Value = DateAdd("d", i, "1-1-2016")
Cells(i, 2).Value = WeekdayName(Weekday(Cells(i, 1)))
Cells(i, 3).Value = Weekday(Range("A" & i))
If Cells(i, 3).Value = 1 Then
Cells(i, 4).Value = "Weekend"
Else
Cells(i, 4).Value = "Workingday"
End If
Next
End Sub