Create IsActiveCellInTable.bas