Hide / Unhide rows where all cell values are ZERO

Sub test()

Dim l As Long
Dim lRow As Long

lRow = Range("A" & Rows.Count).End(xlUp).Row

For l = 1 To lRow
    If Application.WorksheetFunction.Sum(Rows(l)) = 0 Then
        Rows(l).Hidden = True
    End If
Next l
    
End Sub

e/ Just realized you mentioned multiple sheets also. I will edit for all sheets.

Sub test()

Dim ws As Worksheet
Dim l As Long
Dim lRow As Long

For Each ws In Worksheets
    lRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    For l = 1 To lRow
        If Application.WorksheetFunction.Sum(ws.Rows(l)) = 0 Then
            ws.Rows(l).Hidden = True
        End If
    Next l
Next ws
    
End Sub

Unhide all? or only unhide rows that total to 0?

Glad to help.

You can also try this:

Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.UsedRange.EntireRow.Hidden = False
Next ws
End Sub

I'm not sure I understand, you don't want the entire row hidden if what?

Sorry I should have been more clear. I believe there are certain rows that you do not want hidden:

Hi, is there a way to update the code or even my sheets so that lines where there is noting ae not hidden, else presentation is affected.

Which are the rows that you never want hidden because they effect presentation if they are hidden?

Ah. I understand. What column to the 0's start in?

try

Sub test()

Dim ws As Worksheet
Dim l As Long
Dim lRow As Long

For Each ws In Worksheets
    lRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    For l = 1 To lRow
        If ws.Range("D" & l).Value <> "" Then
            If Application.WorksheetFunction.Sum(ws.Rows(l)) = 0 Then
                ws.Rows(l).Hidden = True
            End If
        End If
    Next l
Next ws
    
End Sub