Patrick

I've noticed that when I change the date format of the header date to
a number and similarly change the date format in the sheet that the
'Cells.Find (What:=ActiveCell.Value) is trying to locate, then my
original code works fine. So it seems that for some reason it doesn't
like it when the value is formatted as a date.

So this appears to be a formatting problem. Can you suggest any
alternative code that would solve this.

Thanks, Simon