If the others don't start with Goto, this should work.
![]()
Sub x() Dim n As Name For Each n In ThisWorkbook.Names If UCase(Left(n.Name, 4)) = "GOTO" Then If WorksheetFunction.Sum(Range(n)) = 0 Then Range(n).EntireRow.Hidden = True End If Next n End Sub
Bookmarks