Function EE_TableGetColumnData(Heading As String) As range
    ' returns the data from a header
'http://excelexperts.com/xla-routines-eeTableGetColumnData    for updates on this function
    Set EE_TableGetColumnData = Columns(EE_TableHeadingCol(Heading, ActiveSheet.UsedRange))
    Set EE_TableGetColumnData = Intersect(EE_TableGetColumnData, ActiveSheet.UsedRange)
    Set EE_TableGetColumnData = EE_RangeChange(EE_TableGetColumnData, 1, 0, 0, 0)
End Function