How to display working days as a list in Excel?

Question

Visual Basic

It is necessary that the start date be indicated in cell a1 by hand. In the cell b1 end. And then we need magic that in column c will display a list of all working days in this range

Answer 1

Sub PrintWorkDays()
    Dim Counter As Long
    
    Counter = 1
    For i = Range("A1") To Range("B1")
        Select Case Weekday(i)
            Case 2 To 6
                Cells(Counter, 3).Value = i
                Counter = Counter + 1
            Case Else
        End Select
    Next i
End Sub

Answer 2

Demo version , which includes no more than 37 days. Contact me for the full version