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)