Answered by : tender-tamarin-167f5lkfwxcy

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)

Source : https://stackoverflow.com/questions/18811431/refer-to-excel-cell-in-table-by-header-name-and-row-number | Last Update : Tue, 19 May 20