Hide/Unhide Rows in Excel in multiple sheets

SomeshKaistha 

Personally, I would modify HansVogelaar 's code to delete the rows, rather than filtering them, and then convert all the tabular data to Excel tables that resize to accommodate the actual content.

SomeshKaistha 

Whether the following macro works or not depends on the layout of your worksheets...

Sub HideZeros()
    Dim wsh As Worksheet
    For Each wsh In Worksheets
        Select Case wsh.Name
            ' List the exceptions here, if any
            Case "Introduction", "Summary"
                ' Skip these sheets
            Case Else
                wsh.UsedRange.AutoFilter Field:=50, Criteria1:="<>0"
        End Select
    Next wsh
End Sub