VBA code to hide defined names in worksheet

That works brilliantly thank you, but unfortunately I do have a few other named ranges throughout the workbook. Is it possible to apply this macro to the active sheet only?

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