Temporärer Ausstig aus For Next Schleife

mit diesem Makro färbe ich Wochentage ein, um einen Schichtkalender zu bekommen:

Sub faerben()

Dim r%

For r = 1 To 50

    If WeekDay(Cells(r, 1)) = 7 _

    Or WeekDay(Cells(r, 1)) = 1 Then GoTo ziel ' Ausstieg wenn Sonnabend oder Sonntag

Cells(r, 1).Interior.ColorIndex = 6

ziel:

Next r

End Sub

Nun ist es ja ein schlimmes Vergehen mit GoTo zu arbeiten. Kennt jemand eine bessere Lösung. Ich habe den Ausstieg schon mit Exit For versucht, das geht nicht. Auch das Hochzählen der Variable r brachte nicht den gewünschten Erfolg.

In der Hoffnung auf eine Lösung
Hans-Karl