Sub SheetList()
   Dim sheet As Worksheet
   Dim cell As Range, x As Long
   x = 9
   With ActiveWorkbook
      For Each sheet In ActiveWorkbook.Worksheets
         Set cell = Worksheets(3).Cells(x, 2)
         .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1"
         cell.Formula = sheet.Name
         x = x + 1
      Next
   End With
End Sub

Sub Macro1()
Dim DateStart As Date, DateFinish As Date, Arr, i As Long, x As Long
    DateStart = "01.01.1999"
    DateFinish = "18.09.2019"
    ReDim Arr(1 To DateFinish - DateStart, 1 To 1)
    For i = DateStart To DateFinish
        If Weekday(i, 2) < 6 Then
            x = x + 1
            Arr(x, 1) = Format(i, "dd.mm.yyyy")
        End If
    Next
    Range("B2").Resize(x, 1).Value = Arr
End Sub