One possible solution is to change your import, so that column is imported
as strings rather than being allowed to be interpreted as dates when the
file is opened.

Bernie


"StuartBisset" wrote in message
...

Try changing:

myVals = Split(wkbCSV.Cells(xLoop, 1), "/")

to

myVals = Split(wkbCSV.Cells(xLoop, 1).Text, "/")

Bernie

Thanks but no joy.

Bernie, I should have said the

wkbCSV.Cells(xLoop, 1).Text

returns

"########"

as a value so Split() can't split it.