Excel VBA determine if ActiveCell is Table Header

[JeannetteE]

Hi,

"If ActiveCell.ListObject.Header Then"

I want to do something different if the Active Cell is the Header than if it isn't.

I have many tables and the Header Name is different for all of them.

Any help appreciated

 

[gallen]

Hello, You just need to use intersect:

    If Not Intersect(ActiveCell, Me.ListObjects("[COLOR=#ff0000]YOURTABLENAME[/COLOR]").HeaderRowRange) Is Nothing Then
        'Active cell is a header
    Else
        'Active cell isn't a header
    End If

 

[JeannetteE]

Hello, You just need to use intersect:

    If Not Intersect(ActiveCell, Me.ListObjects("[COLOR=#ff0000]YOURTABLENAME[/COLOR]").HeaderRowRange) Is Nothing Then
        'Active cell is a header
    Else
        'Active cell isn't a header
    End If

Thank you for the response. I'm getting an "Invalid use of me word" Error

 

[Norie]

Try this.

Dim lst As ListObject

    Set lst = ActiveCell.ListObject
    
    If lst Is Nothing Then
        MsgBox "Active cell not in table."
    Else
        If Not Intersect(lst.HeaderRowRange, ActiveCell) Is Nothing Then
            MsgBox "Active cell is in table header."
        End If
    End If

 

[gallen]

Thank you for the response. I'm getting an "Invalid use of me word" Error

Apologies. Change "Me" To "ActiveSheet"

 

[JeannetteE]

Apologies. Change "Me" To "ActiveSheet"

Thank you, works perfectly

 

[JeannetteE]

Thank you