anything stick out to you in this loop?'... loop up the rows to check if the cell contains a valid date '... if it does then convert the dates to DB format For d = tempCol To 1 Step -1 sPeriodRange = getColumnLetter(d) & tempRow If hasDate(Range(sPeriodRange).Text) Then sFarePeriod = stripPeriods(Range(sPeriodRange).Text) sFarePeriod = convertPeriodDates3(sFarePeriod) End If Next d