Hi Bob,
thanks for your reply...
I declare i as long and set it to 1 before the start of
the DO while loop..
Yes correct data is wriiten to the cells but there are
blanks rows between those rows with data in it...it's
strange

I tried Cells(i, 1).Value = "'" & Mid(data, 1, 8) ...
same results..