Hi,

I have these 2 lines of code which I hope to shorten it to 1 line.
Anyone have any idea how to do it?

Basically, I want to convert the formula in A1 to A3 to its value. In
the nutshell, I do a copy in range A1:A3 and then do a "Paste Special"
with values only.

Thanks for your help.

...start...
Range("A1:A3").Copy
Range("A1:A3").PasteSpecial Paste:=xlPasteValues
...end...


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

change it slightly to

Range("A1:A3").PasteSpecial xlPasteValues


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

Try this:

Range("A1:A3").Value=Range("A1:A3").Value

No need to copy and paste.

Best -

RADO


"slc" wrote in message
...

Hi,

I have these 2 lines of code which I hope to shorten it to 1 line.
Anyone have any idea how to do it?

Basically, I want to convert the formula in A1 to A3 to its value. In
the nutshell, I do a copy in range A1:A3 and then do a "Paste Special"
with values only.

Thanks for your help.

..start...
Range("A1:A3").Copy
Range("A1:A3").PasteSpecial Paste:=xlPasteValues
..end...


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

Sorry. I wasn't paying attention to the 2 lines to 1 part of you
question.

I have never found a way to do this with one line

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

This is better.

I wonder why xl has xlPasteValues the

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

Paul & Rado,

Thanks for your help. This 1-liner works fine for me.

...start...
Range("A1:A3").Value=Range("A1:A3").Value
...end..

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com