Maybe...

Option Explicit
Sub testme()

Dim myName As String
myName = ""
On Error Resume Next
myName = ActiveCell.Name.Name
On Error GoTo 0

If myName = "" Then
MsgBox "No name"
Else
MsgBox myName
End If
End Sub



wrote:

Suppose I make a range consisting of a single cell ...

Is there a way to get the name of the range of that cell from an
ActiveSheet in VBA ?

Thanks.

--

Dave Peterson