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