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 superfluousOriginally Posted by crmpicco
[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]