Question

I have a table created from List of data. How to find the header text of each column

When I select the activecell’s header is high lighted to orange but I want to retrieve that value using visual basic.
I am able to find excel sheet’s address but I need table’s column header

   Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      MsgBox Target.Value 
      MsgBox ActiveCell.Address
   End Sub

Answer 1

This will return the column header, if the passed cell is in a table

Function TableHeader(cl As Range) As Variant
    Dim lst As ListObject
    Dim strHeading As String

    Set lst = cl.ListObject

    If Not lst Is Nothing Then
        TableHeader = lst.HeaderRowRange.Cells(1, cl.Column - lst.Range.Column + 1).Value
    Else
        TableHeader = ""
    End If
End Function