Quote Originally Posted by crmpicco
'... 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
anything stick out to you in this loop?
Not really, but you don't need the HasDate function, and I have no idea how efficient StripPeriods and ConvertDates are, but you do seem to do unnecessary stuff (suh as your own date checker, and converting columns and rows to a string), but my guess would be that they are at least partially superfluous

[VBA] For d = tempCol To 1 Step -1
If IsDate(Cells(temprow, d).Text) Then
sFarePeriod = stripPeriods(Cells(temprow, d).Text)
sFarePeriod = convertPeriodDates3(sFarePeriod)
End If
Next d
[/VBA]