VBA Command to retrieve Column Name

[AlInVegas2]

I'm trying to find a command that will determine if the column of the current ActiveCell has a Defined Name. Is there a VBA command that does this? If so and a defined name is not found, what value is returned?

 

[bebo021999]

try this code:

Sub test()
Dim col As Range, nam As Name, hasName As String
Set col = ActiveCell.EntireColumn
For Each nam In ActiveWorkbook.Names
    If Not Intersect(col, nam.RefersToRange) Is Nothing Then
        hasName = " column has name: " & nam
    Else
        hasName = "column does not have any name."
    End If
Next
MsgBox hasName
End Sub

 

[AlInVegas2]

try this code:

Sub test()
Dim col As Range, nam As Name, hasName As String
Set col = ActiveCell.EntireColumn
For Each nam In ActiveWorkbook.Names
    If Not Intersect(col, nam.RefersToRange) Is Nothing Then
        hasName = " column has name: " & nam
    Else
        hasName = "column does not have any name."
    End If
Next
MsgBox hasName
End Sub

Thanks. I went with an Error Resume Next method, setting a variable flag when the specific name couldn't be found. I'll play with this for another name search project I have.