Schleife läuft nicht ????

Private Sub gelb_Click()
LabelProgress.Width = 0
Dim Fertig As Single
Dim z As Long
Dim zeile As Long
zeile = Zeilenanzahl(1, 1)
For z = zeile To 1 Step -1
If Cells(z, 1).Interior.ColorIndex = 6 Then    'alle gelben Spaltenlöschen
Rows(z).Delete
End If
Fertig = z / (zeile * 1)
With farbzellen
Me.Caption = format(Fertig, "0%")
Me.LabelProgress.Width = Fertig * (.FrameProgress.Width - 1)
DoEvents
End With
Next z
Unload farbzellen
End Sub