Udfør makro i alle regneark i projektmappen

Hej

Jeg har 2 simple makroer, som henholdsvis (Vis) viser alle celler i regnarket, samt (Skjul) skjuler alle rækker/kolonner, hvor der står falsk i kolonneA/Række1. Det virker fint.

Jeg vil gerne have lavet en makro, der gennemløber alle regneark, og udfører Vis og Skjul i alle regneark.

Årsag:
Når nye data er indført i projektmappen skal alle ark opdateres og relevante rækker/kolonner vises.

Håber at én kan hjælpe.

mvh. Hjald


Nuværende kodning:
Sub Vis()
    Cells.Select
    Selection.EntireRow.Hidden = False
    Selection.EntireColumn.Hidden = False
    Range("C3").Select
End Sub
Sub Skjul()
' Skjul Rækker
    Dim i As Long
    Application.ScreenUpdating = False
      For i = 1 To 375
      If Cells(i, 1).Value = Falsk Then
        Cells(i, 1).EntireRow.Hidden = True
      End If
    Next i
' Skjul Kolonner
    For c = 1 To 25
        If Cells(1, c).Value = Falsk Then
            Cells(1, c).EntireColumn.Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub