Fehlersprung geht nicht!

Kann mir jemand sagen, warum bei einem Fehler nicht der Sprung zu "nächster Fehöer" erfolgt?

Zähler = 0
On Error GoTo nächster_Zähler
For Zähler = 0 To 19

    
nächster_Zähler:
        Gewicht = Cells.Find(what:=ArbPlatz(Zähler) & " Ergebnis", after:=Cells(1, 1)).Offset(0, 1).Value
              Sheets("verschmiedete Tonnage").Range("a65536").End(xlUp).Offset(1, 0) = Aggregat(Zähler)
        Sheets("verschmiedete Tonnage").Range("b65536").End(xlUp).Offset(1, 0) = Gewicht

Next Zähler