Makro sofort abbrechen

Sub Maschinen_Stammblatt_drucken()
Dim rng As Range, c As Range
Dim statuscounter As Integer
With Worksheets("Seriendruck")
Set rng = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
End With
For Each c In rng
With Worksheets("Stammblatt_Maschinen")
.Range("AE5") = c.Value
.PrintOut
End With
'    warten, um Drucküberlauf zu vermeiden
Application.Wait Now + TimeSerial(0, 0, 1)
Next c
End Sub