Hi thanks for the reply -

think I am almost there. Throws up a debug error and highlights : Cells(FERow, c.Column) = .Text

If I replace with the same as the first i.e. Cells(FERow, c.Column) = CDate(.Value) it appears to work fine.

What is this part of code stating? Sorry, not familiar with this line of code

Cheers