Navigieren zwischen Blättern in Excel

Question

Ich schreibe ein Makro, um zwischen Blättern einer Excel-Arbeitsmappe zu navigieren, so wie Alt + Tab zwischen Fenstern funktioniert. (Ich weiß, gibt es Strg + Bild und Ctrl + PgDn Befehle, aber diese Tasten haben schlechte Lage auf der Tastatur.)

Das Makro:

Sub navigate_sheet() 

    If ActiveSheet.Index < Sheets.Count Then  
     ActiveWorkbook.ActiveSheet.Next.Select  
    Else  
     ActiveWorkbook.Sheets(1).Select  
    End If 

End Sub 

Es funktioniert perfekt in der Original-Datei, aber wenn ich versuche, es in anderen Excel zu verwenden i Laufzeitfehler ‚1004‘ erhalten und Debug unterstreicht die folgende Zeile ein:

ActiveWorkbook.ActiveSheet.Next.Select 

Jede Idee, was falsch ist?

Answer 1

den Code unten Versuchen:

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