'*********************************************************
'Voraussetzung:
'In den Eigenschaften des Dokuments:
'Menü Datei|Eigenschaften|Anpassen *
'wird ein Eintrag gemacht: Name = Sheet
' Typ = Zahl
' Wert = 1
'Das hat den Vorteil, dass das auch beim erneuten Start
'der Datei verfügbar ist, vorausgesetzt, die Datei wurde
'gespeichert.
'Ansonsten besteht natürlich die Möglichkeit, das auch in
'die Registry zu schreiben.
'
'*********************************************************
Dim SheetIndex As Integer
Dim TW As DocumentProperty
Sub Test()
Set TW = ThisWorkbook.CustomDocumentProperties("Sheet")
SheetIndex = TW.Value
If SheetIndex > Sheets.Count Then
TW.Value = 1
SheetIndex = 1
End If
Sheets(SheetIndex).Select
SheetIndex = SheetIndex + 1
TW.Value = SheetIndex
End Sub