excelでシート間を移動する

Question

Alt + TabのようなExcelブックのシート間を移動するためのマクロを書き込むと、ウィンドウ間が動きます。 （私が知っている、そこにはCtrl + PgUpキーとCtrl + PgDnキーコマンドですが、これらのボタンは、キーボード上の悪い場所を持っている。）

マクロ：

は ​​

それは、元のファイルに完璧に動作しますが、とき何が間違っている

ActiveWorkbook.ActiveSheet.Next.Select 

任意のアイデア：私は「1004」の実行時エラーを取得し、デバッグには、以下の行をハイライトする他のExcelで使用しようか？エラーメッセージが含まれています

Option Explicit 

Sub navigate_sheet() 

Dim wb As Workbook  
Set wb = ThisWorkbook 

If ActiveSheet.Index < wb.Sheets.Count Then 
    wb.Sheets(ActiveSheet.Index + 1).Select 
Else 
    wb.Sheets(1).Select 
End If 

End Sub 

Answer 1

は、以下のコードを試してみてください？