Lave så man kan se flere ark på een gang?

Nix, ikke uden at skulle programmere selv.
Du kan dog prøve at højreklikke på de pile, så får du en oversigt over alle dine ark.

hmm..
Det gør det ikke meget bedre..
Der kan jeg kun se de første 15 uger og skal så derefter til at klikke more sheets og derefter scrolle ned...

Hvad med et menu ark, hvor der er hyperlink til alle ark.
jeg har en makro der klarer det, hvis du er interesseret. ?

Hvad med at lave en forside, med links til de 52 ark. Hvis du så bruger dette excel fif, kan du komme nemt frem og tilbage

You may have inserted hyperlinks into your spreadsheet to allow quick navigation to parts of the same or other workbooks. After using a hyperlink, use the Back button to return to the hyperlink location. To make the Back button available, choose Tools|Customize|Commands, select the Web category and scroll down the Commands list until you see the Back button (left-facing arrow). Drag the button to a location on your toolbar and close the Customize dialog box.

Sorry kabbak, havde ikke opdateret. men bootie kan så bruge fidusen med hyperlink, hvis han lyster

Ok her er makroen, den har nogle år på bagen, så den kan laves bedre, men den virker.

Public Sub Menu()
Dim W As Integer, K As Integer, A As Integer
A = MsgBox("Vil du indsætte et ark ved navn MENU, eller opdatere eksisterende, hvor der er Hyperlink til dine ark", vbYesNo, "MENU OPRETTER  v. Kabbak ©")
If A = 6 Then
W = 1 ' styrer række inden for hyperlink
K = 1 ' styrer kolonner inden for hyperlink
For Each ws In Worksheets
If ws.Name = "Menu" Then GoTo Findes
Next ws

  Set NewSheet = Worksheets.Add ' opretter nyt ark
  NewSheet.Name = "Menu"        ' navngiver det nye ark
 
Findes:
  Worksheets("Menu").Activate
  Range("a1").Select
  If ActiveCell.Value = "" Then
  ActiveCell.Value = "MENU Styring    v. Kabbak ©"
  ActiveCell.Font.Color = vbBlue
  ActiveCell.Font.Bold = True
  ActiveCell.Font.Italic = True

    Range("A1:E1").Select
    With Selection
        .HorizontalAlignment = xlCenter
    End With
    Selection.Merge
        With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 3
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 3
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 3
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 3
    End With
  End If
Range("a2:f31").Select            ' sletter alle data i området til hyperlink
    Selection.ClearContents            '    der kan jo være fjernet sider ???
    Range("a2").Select
  '-----------------------------------------Der laves hyperlink til alle ark  -------------
  For Each ws In Worksheets
  Worksheets("Menu").Range("a2:a150").Cells(W, K).Select ' reseverer et område til at skrive hyperlink i
 
    If ws.Name = "Menu" Then GoTo Næste ' Hopper over hovedarket "Menu"
 
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & ws.Name & "'" & "!A1"
    ActiveCell.FormulaR1C1 = ws.Name ' skriver hyperlink på alle sider inden for området
    W = W + 1
Næste:
  Next ws
  '------------------------------Soterer kollonne A ----------------------------
    Range("A2:A150").Select
    Selection.Sort Worksheets("Menu").Columns("A"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
     
      '--------------- Flytter data over i 4 kolonner ------------------------
    Range("A31:A59").Select
    Selection.Cut
    Range("B2").Select
    ActiveSheet.Paste
    Range("A60:A88").Select
    Selection.Cut
    Range("C2").Select
    ActiveSheet.Paste
    Range("A89:A117").Select
    Selection.Cut
    Range("d2").Select
    ActiveSheet.Paste
    Range("A118:A146").Select
    Selection.Cut
    Range("e2").Select
    ActiveSheet.Paste
    Columns("A:E").Select
    Selection.ColumnWidth = 22
Range("d30").Select
       
Else
Exit Sub
End If
End Sub

Det er nok ikke så smart at rodde for meget i selve excel filen da det ikke er mig der administrere udsenet af denne, men blot ville høre om man igennem programmet kunne få den til at vise lidt flere ark.

Jeg er blot brugeren af dokumentet ikke ophavsmanden.

I stedet for at bruge pilene, kan du prøve at bladre i arkene med Ctrl holdt nede og trykke på Page Up den ene vej og Page Down den anden vej

En tredje mulighed er at gå ind på http://www.exceltip.com
Hvis man vælger "Join our newsletter" har man mulighed for at downloade et tilføjelsesprogram, "ChooseSheet".
Dette kan bruges også selvom du bare er bruger af regnearket.
(Giver et extra ikon som man bare skal klikke på for at få en komplet oversigt)