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.
Sep 19 2021 04:47 AM
Solution