Ctrl+PgUp?、Ctrl+PgDn?で移動するのは面倒で遅いため、マクロ化を考えました。
prevSheetにCtrl+q、nextSheetにCtrl+eをショートカットとして割当てると効率的でしょう。
ファイル名: 任意
Sub prevSheet()
If 1 < ActiveSheet.Index Then ' 最初のシートでないなら '
ActiveSheet.Previous.Select ' 前のシートに移動する '
End If
End Sub
Sub nextSheet()
If Worksheets.Count > ActiveSheet.Index Then ' 最後のシートでないなら '
ActiveSheet.Next.Select ' 次のシートに移動する '
End If
End Sub