Gå til ark/celle hvor fejl opstår VBA

Med denne kode har jeg forsøgt at få makroen til at gå til det ark og celle, hvor der findes fejl. Men det virker ikke. Kan nogen hjælpe.

Hensigten med markroen er, at den skal skjule rækker i udvalgte ark (kode SV i celle U1) når der står FALSK i kolonne A. Den skal dermed gennemløbe alle ark i projektmappe.

Se kode:

Sub Skjul_Alle_Rækker()

On Error GoTo Fejl

førArk = ActiveSheet.Name
førCelle = ActiveCell.Address

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

    If sh.Range("U1") = "SV" Then
         
        For Each c In sh.Range("A3:A" & sh.Range("V1").Value).Cells
          If c.Value = Falsk Then
          c.EntireRow.Hidden = True
          End If
        Next
    Else
    MsgBox "Dette ark er ikke forberedt til Skjul/vis." & vbCrLf & "Celle U1 skal være markeret med 'SV'"
 
    End If

Next

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True


Fejl:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
ActiveSheet.Activate
ActiveCell.Select
ActiveCell.Offset(1, 0).Select
Fejlark = ActiveSheet.Name
Fejlcelle = ActiveCell.Address
MsgBox "Der er en fejl i kolonne A (sand/falsk)." & vbCrLf & "Fejlen er i ark: " & Fejlark & " og celle: " & Fejlcelle
End

Sheets(førArk).Activate
Range(førCelle).Select

End Sub