上のコードだと、ファイルを閉じると元に戻ってしまいます。
常に設定を維持する場合は、以下のコードで。
　Private Sub Workbook_Open()
　　Sheets("Sheet1").ScrollArea = "1:20"
　End Sub
　　このコードの使い方は、マクロの使い方(３)This Workbookのモジュールにあります。
元に戻すには以下です。
　Sub test2()
　　ActiveSheet.ScrollArea = ""
　End Sub
　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。

ThisWorkbookをクリックして貼ります。
選択した移動先のシートのA1セルを右クリックすると、目次用シートに戻ります。
　Private Sub Workbook_SheetBeforeRightClick _
　　　(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
　　If Target.Address = "$A$1" Then Sheets("目次用").Select: Cancel = True
　End Sub
　　このコードの使い方は、マクロの使い方(３)This Workbookのモジュールにあります。

目次用シートに追加で貼ります。
一覧のセル範囲が、B列2行から30行までとした場合に、シート名の自動更新をします。
　Private Sub Worksheet_Activate()
　　Dim objWS As Worksheet
　　Dim bytRow As Byte
　　bytRow = 2
　　Range(Cells(2, 2), Cells(30, 2)).ClearContents
　　For Each objWS In ActiveWorkbook.Worksheets
　　　If objWS.Name <> "目次用" Then
　　　　Cells(bytRow, 2).Value = objWS.Name
　　　　bytRow = bytRow + 1
　　　End If
　　Next
　End Sub
　　このコードの使い方は、マクロの使い方(２)該当するシートのモジュールにあります。

「指定の列のみ移動」を実行すると、上の表のように指定した列を塗りつぶし、
その間だけEnterで移動します。それ以外の塗りつぶしは解除してしまいます。

Sub 指定の列のみ移動()
　Dim a As String, b As String
　Cells.Interior.ColorIndex = xlNone
　a = Application.InputBox(Prompt:="左側の列番号を入力してください", Default:="A", Type:=2)
　b = Application.InputBox(Prompt:="右側の列番号を入力してください", Default:="E", Type:=2)
　Columns(a).Interior.ColorIndex = 8
　Columns(b).Interior.ColorIndex = 6
　Application.OnKey "~", "移動設定" 'エンターキーを押した時移動設定のマクロを実行
　Application.OnKey "{ENTER}", "移動設定" 'テンキーのエンターキーを押した時実行
End Sub

Sub 移動設定()
　Dim i As Integer
　With ActiveCell
　　If .Interior.ColorIndex = 8 Then
　　　For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
　　　　If Cells(1, i).Interior.ColorIndex = 6 Then
　　　　　.Offset(0, i - .Column).Select
　　　　　Exit For
　　　　End If
　　　Next
　　ElseIf .Interior.ColorIndex = 6 Then
　　　For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
　　　　If Cells(1, i).Interior.ColorIndex = 8 Then
　　　　　.Offset(1, -.Column + i).Select
　　　　　Exit For
　　　　End If
　　　Next
　　Else: .Offset(0, 1).Select
　　End If
　End With
End Sub

Sub 移動解除()
　Application.MoveAfterReturn = True
　Application.OnKey "{ENTER}"
　Application.OnKey "~"
End Sub
　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。
　　実行するマクロの名前は、「指定の列のみ移動」を選択してください。