Fehler abfangen --> geht nur einmal

folgender Code

~Begin~

Sub dat_ueber_anfang()

On Error GoTo Weiter
Windows(Workbooks(ThisWorkbook.Name).Sheets("AEinstellung").Range("D24").Value).Activate
dat_ueber_anfang_schleife
Weiter:

On Error GoTo Weiter2
Windows(Workbooks(ThisWorkbook.Name).Sheets("AEinstellung").Range("D25").Value).Activate
dat_ueber_anfang_schleife
Weiter2:

On Error GoTo Weiter3
Windows(Workbooks(ThisWorkbook.Name).Sheets("AEinstellung").Range("D26").Value).Activate
dat_ueber_anfang_schleife
Weiter3:

On Error GoTo Weiter4
Windows(Workbooks(ThisWorkbook.Name).Sheets("AEinstellung").Range("D27").Value).Activate
dat_ueber_anfang_schleife
Weiter4:

On Error GoTo Weiter5
Windows(Workbooks(ThisWorkbook.Name).Sheets("AEinstellung").Range("D28").Value).Activate
dat_ueber_anfang_schleife
Weiter5:

End Sub

~End~

Das erste fängt Excel noch ab aber dann bringt er den Fehler "außerhalb des gültigen Bereichs" is ja auch richtig, weil Datei ja auch nicht offen ist!

Mit On Error Resume Next kann ichs nicht machen wegen der zweiten Zeile!

Vielleicht habt ihr ne Idee?!

Danke

Steffeb