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