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