Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Searching for the Name of a Range

Sub TestNameOfRange()          Dim nmName As name          On Error Resume Next          Set nmName = Selection.name          If nmName Is Nothing Then              MsgBox " Selection has no name"          Else              MsgBox nmName.name          End If      End Sub