Sub SheetList()
   Dim sheet As Worksheet
   Dim cell As Range, cell2 As Range, PageCount As Long, nPage As Long, n As Integer
   Cells(1, 2).Value = "Номера страниц"
   nPage = 1: n = 2
   With ActiveWorkbook
      For Each sheet In ActiveWorkbook.Worksheets
         Set cell = Worksheets(1).Cells(sheet.Index, 1)
         .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1"
         cell.Formula = sheet.Name
         If sheet.Name <> ActiveSheet.Name Then
            Cells(n, 2).Value = nPage
            PageCount = (sheet.HPageBreaks.Count + 1) * (sheet.VPageBreaks.Count + 1)
            nPage = nPage + PageCount
            n = n + 1
        End If
      Next
   End With
End Sub