Hi Barbara,

Try:

'=============
Public Sub Tester()
Dim sStr As String

On Error Resume Next
sStr = Range("A1").Name.Name
If Err.Number = 0 Then
MsgBox sStr
End If
On Error GoTo 0

End Sub
'<<=============


---
Regards,
Norman


"Barb Reinhardt" wrote in message
...
Programmatically, I'd like to be able to determine the range name that is
tied to the active cell. How would I do that?

Thanks