Makro til skjul linier igen. En tilføjelse?

Jeg har følgende makro, som virker fantastisk fint. Jeg har dog det problem, at nogle af brugernes maskiner er en anelse gamle og har ikke helt nok RAM. Derfor skal jeg spare på alt for mange og lange gennemløb af ark.

Derfor har jeg i hvert ark, lavet en celle (V1), som tæller hvor mange rækker, der skal gennemløbes. Følgende makro, som spørger om den skal lave gennemløb (spørg på celle U1), vil jeg gerne have til at tage hensyn til førnævnte celle (V1) med antallet af rækker.

P.t. har jeg lavet 2 forskellige gennemløb afhængig af antal i U1. Håber at én kan hjælpe.

Sub SkjulAlle()
førArk = ActiveSheet.Name
førCelle = ActiveCell.Address

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
   
For Each sh In ActiveWorkbook.Worksheets
    Cells.EntireRow.Hidden = False
Next

For Each sh In ActiveWorkbook.Worksheets
   
If sh.Range("U1") = "SV" Then

    If sh.Range("V1") < 250 Then
        For Each c In sh.Range("A3:A250").Cells
            If c.Value = Falsk Then
            Application.GoTo Reference:=c
            Selection.EntireRow.Hidden = True
            End If
        Next
    Else
        For Each c In sh.Range("A3:A999").Cells
            If c.Value = Falsk Then
            Application.GoTo Reference:=c
            Selection.EntireRow.Hidden = True
            End If
        Next
    End If
End If


Next

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Sheets(førArk).Activate
Range(førCelle).Select
End Sub