Thema: Namen eines ausgewählten Bereiches auslesen

StandardModule: basMain

Sub NamenLesen()
   Dim nme As Name
   Dim iCounter As Integer
   Dim srange As String
   Range("A1:E16").Select
   For Each nme In ThisWorkbook.Names
      srange = nme.RefersTo
      srange = Right(srange, Len(srange) - InStr(srange, "!"))
      If Not Intersect(Range(srange), Selection) Is Nothing Then
         iCounter = iCounter + 1
         MsgBox "Name " & iCounter & ":" & nme.Name & " - " & srange
      End If
   Next nme
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Name