If you really want to check to see if the activecell has its own name:

Dim myName As Name

Set myName = Nothing
On Error Resume Next
Set myName = ActiveCell.Name
On Error GoTo 0

If myName Is Nothing Then
MsgBox "no name"
Else
MsgBox ActiveCell.Address(0, 0) & vbLf & myName.Name
End If



Rick S. wrote:

How can I test a cell for a Name, "activecell.name".
In my code below, it will generate an error if a cell is clicked that has no
".Name".
(Option Explicit assumed)

'======
Sub x()
'Begin Registry setting
'Notes:
'100% active on all cells clicked
sSpecLastWs = ActiveSheet.Name
SaveSetting appname:="ADM_Spec_Index", section:="WorkSheetNames", _
Key:="sSpecLastWs", setting:=sSpecLastWs
sSpecLastCell = ActiveCell.Name 'FAILS HERE
SaveSetting appname:="ADM_Spec_Index", section:="WorkSheetNames", _
Key:="sSpecLastCell", setting:=sSpecLastCell
'End Registry setting
End Sub
'======
--
Regards

VBA.Newb.Confused
XP Pro
Office 2007

--

Dave Peterson