Sep 19 2021 03:11 AM
Sep 19 2021 03:47 AM - edited Sep 19 2021 03:47 AM
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
Sep 19 2021 04:47 AM
SolutionSep 25 2021 12:50 AM
Sep 25 2021 01:02 AM
Please attach a sample workbook without sensitive data.
Sep 25 2021 02:53 AM
Personally, I would modify @Hans Vogelaar '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.