for lnRow = m.lnRows to 1 STEP -1>>
oSheet.Rows(lnRow).Delete()>>
>*-- Find total # of used rows > for lnRow = 1 to m.lnRows > llValFound = .f. > for lnCol = 1 to m.lnCols > lcCellValue = .Cells(m.lnRow,m.lnCol).value > if not (empty(m.lcCellValue) or isnull(m.lcCellValue)) > llValFound = .t. > exit > endif > next > if !m.llValFound > .Rows(m.lnRow).Delete() > lnFinalRows = m.lnFinalRows - 1 > endif > next > > lnRows = m.lnFinalRows &&.UsedRange.rows.count > >*-- Find total # of used columns > for lnCol = 1 to m.lnCols > llValFound = .f. > for lnRow = 1 to m.lnRows > lcCellValue = .Cells(m.lnRow,m.lnCol).value > if not (empty(m.lcCellValue) or isnull(m.lcCellValue)) > llValFound = .t. > exit > endif > next > if !llValFound > .Columns(m.lnCols).delete() > lnFinalCols = m.lnFinalCols - 1 > endif > next>