XLA Routines: EE_TableFreeHeading

Nick's picture
Finds the next available cell to put a heading on a data table
Function EE_TableFreeHeading(sht As Worksheet) As Range
'http://excelexperts.com/xla-routines-eeTableFreeHeading    for updates on this function
' finds the next free cell to the right of a table
    
    Set EE_TableFreeHeading = sht.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
 
End Function