מעבר בין גיליונות באקסל 2016

[אביב561]

שלום חברים
באקסל 2016 יש לי כ-50 גיליונות , מכירים אפשרות להציג את כול הגיליונות על מנת לעבור מגיליון לגיליון ?
אני מכיר את האפשרות לקליק ימיני על החצים ליד שמות הגיליונות אבל גם שם נפתח לי חלון עם פס גליליה לבחירת גיליון
מכיר את האפשרות בגיליון חדש לעשות היפר קשור לכול גיליון בקובץ , אבל זה הרבה עבודה
אולי יש תוסף שעושה את זה ?

שנה אזרחית טובה בריאות לכולם

 

[מיכאל אבידן]

Sub CreateIndex()
    Application.DisplayAlerts = 0
    On Error Resume Next
    Sheets("Index sheet").Delete
    On Error GoTo 0
    Set SHIndex = Sheets.Add(Sheets(1))
    SHIndex.Name = "Index sheet"
    R = 1
    Cells(1, 1).Value = "INDEX"
    For Each SH In ThisWorkbook.Sheets
          If SH.Name <> "Index sheet" Then
              R = R + 1
              SHIndex.Hyperlinks.Add Cells(R, 1), "", "'" & SH.Name & "'!A1", , SH.Name
          End If
    Next
    Columns(1).HorizontalAlignment = xlCenter
    Columns(1).AutoFit
    Application.DisplayAlerts = 1
End Sub