VBA Excel retreive the name of a range

Poniżej procedura do wyciągnięcia nazw komórek z zaznaczonego zakresu.

Public Sub GetNamesFromRange()
Dim objRange As Range
For Each c In Selection
Set objRange = c
Call GetCellName(objRange)
Set myRange = Nothing
Next c
End Sub

Private Sub GetCellName(xRange As Range)
Dim cellName As Name

Set cellName = xRange.Name
Debug.Print cellName.Name
Set cellName = Nothing
End Sub