VBA code to hide defined names in worksheet

If you have no other named ranges, perhaps this will work?

Sub x()

Dim n As Name

For Each n In ThisWorkbook.Names
    If WorksheetFunction.Sum(Range(n)) = 0 Then Range(n).EntireRow.Hidden = True
Next n

End Sub

EDIT: please follow the forum rules and change your thread title to something more descriptive.