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