Change

cell.Offset(0, 3) = x


to
cfind.End(xlToLeft).copy cell.offset(0,3)

if the source cell has a formula and you want to do values and formats

cfind.End(xlToLeft).copy
With cell.offset(0,3)
.pastespecial xlValues
.pastespecial xlFormats
End With



--
Regards,
Tom Ogilvy


"Paul" wrote in message
...
Thanks for your reply! I was wondering if you could help me further. I
need
the formatting to also be copied, is this posible?