Sub NamesOfWs()
Dim ws As Worksheet, n As Name, r As Range
Set ws = ActiveWorkbook.Worksheets("Лист1")         'будем искать имена, ссылающиеся на диапазоны этого листа
  On Error Resume Next
  For Each n In ActiveWorkbook.Names
    Set r = n.RefersToRange
    If Err Then                                     'имя не ссылается на диапазон, напр. имя-функция
      Err.Clear
    ElseIf r.Worksheet Is ws Then                   'диапазон на этом листе
      Debug.Print n.Name, n.RefersToLocal, n.Visible
    End If
  Next
End Sub