It can't be the copy function because there is no copy

..Range(MyCell.Offset(0, -14).Address & ":" & MyCell.Address).Value =
..Range(MyCell.Offset(0, -14).Address & ":" & MyCell.Address).Value


Your source and destination cells is exactly the same. the only thing
this instruction does is to remove the formula from the cell. The REF
must be there before the instruction is executed.

The instruction should be rewiritten as follows

Range(MyCell.Offset(0, -14),MyCell).copy
MyCell.Offset(0, -14).PasteSpecial Paste:=xlpastevalues


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=178854

Microsoft Office Help