Stilstand i VBA kodei Excel!

Jeg har en stort problem, sidder med en kode som jeg ikke selv har lavet....

Det er som om at den nogen gang pludselig står stille og går i stampe i min kode eks:

Den bliver bare ved med at kører rundt og rundt....
------------------------------------------------------------
Public Sub UpdateStykkalk()
On Error GoTo ErrorHandler

    Start = Timer
   
    Dim x As Variant
    Application.ScreenUpdating = False
   
    Do While Timer < Start + 1
    For Each x In Sheets("Stykkalk").[c13:c179]
            If x = 0 Then Rows([x].Row).Hidden = True
        If x <> 0 Then Rows([x].Row).Hidden = False
        Next x
    Loop
   
GoTo Oprydning

ErrorHandler:
    LogError Err.description, Err.Source, Err.Number, "ARK: Hovedark - SUB: Certificat_31B"
   
Oprydning:
    Application.ScreenUpdating = True
End Sub
------------------------------------------------------------

Og her igen:
------------------------------------------------------------
    Dim x As Variant
    For Each x In Sheets("QRS").[svejsnrstart:svejsnrslut]
        If x = "-" Then Rows([x].Row).Hidden = True
        If x <> "-" Then Rows([x].Row).Hidden = False
    Next x
------------------------------------------------------------