Thread: Find Cell Names within a Range

I am in need of extracting all the Cell Names/Variables within a given Range. For example, what cell names refer to any of the cells within the range of A1:C10?

any help would be greatly appreciated

Sub CellNames()
Dim nme As Name

    With ActiveSheet
    
        For Each nme In .Parent.Names
    
            If nme.RefersToRange.Parent.Name = .Name Then
            
                If Not Intersect(.Range("A1:C10"), nme.RefersToRange) Is Nothing Then
                
                    MsgBox nme.Name & " - " & nme.RefersToRange.Address
                End If
            End If
        Next nme
    End With
End Sub