try

Code:
--------------------

Sub test()
With Range("a1").CurrentRegion.Resize(,1).Offset(,2)
.FormulaR1C1="=RC1"
.Value=.Value
End With
End Sub

--------------------


--
jindon
------------------------------------------------------------------------
jindon's Profile: http://www.excelforum.com/member.php...o&userid=13135
View this thread: http://www.excelforum.com/showthread...hreadid=550488