Macro van toepassing op één tabblad, laten werken op meerdere tabbladen

[JanBG]

Joseph,

Deze formule werkt bij mij prima als ik die in je bestandje test:

Sub Rijen_Verwijderen_GO1()
Dim Sh As Worksheet
Application.ScreenUpdating = False
    For Each Sh In Worksheets
    Sh.Select
    Call RunCode
Next
Application.ScreenUpdating = True
End Sub
Sub RunCode()
Dim LastLine As Long
Dim i As Long
Application.ScreenUpdating = False
    LastLine = Range("C65536").End(xlUp).Row
    For i = LastLine To 3 Step -1
    If Cells(i, 21) = 0 Then Cells(i, 1).EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub
Sub RijenTerug_GO1()
Dim Sh As Worksheet
For Each Sh In Sheets
  Sh.Rows.Hidden = False
 Next Sh
End Sub

Bekijk bijlage Kopie van Testbestandje.xlsm

@HSV: in kolom 21 staan wel degelijk nullen; misschien de verborgen kolommen over het hoofd gezien