excel vba table columns change value ActiveSheet.ListObjects(" .ListColumns( .DataBodyRange code example

Example: vba table header name

Dim tb As ListObject
'assumes Table is the first one on the ActiveSheet
Set tb = ActiveSheet.ListObjects(1)
MsgBox tb.DataBodyRange.Cells(2, tb.ListColumns("header4").Index)