Copy Paste Values

[Arthur]

I like this code for a normal copy/paste because nothing
gets selected:

Range("A1:A3").Copy Range("C1")


If I need to paste values, this code works, but the copied
range gets selected (I guess) because it is left with a
blinking outline in the worksheet:

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


(1) Is there a way to copy and paste values without
selecting the copied range?

(2) Alternatively, how do I "clear" the blinking outline
after the procedure runs?

Art

 

[Tom Ogilvy]

Application.CutCopyMode = False

 

[J.Smith]

-----Original Message-----
I like this code for a normal copy/paste because nothing
gets selected:

Range("A1:A3").Copy Range("C1")


If I need to paste values, this code works, but the copied
range gets selected (I guess) because it is left with a
blinking outline in the worksheet:

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


(1) Is there a way to copy and paste values without
selecting the copied range?

(2) Alternatively, how do I "clear" the blinking outline
after the procedure runs?

Art

.

Hi Art,

I'm use this method to copy.

Worksheets("Sheet1").Range("A14").Copy _
destination:=Worksheets("Sheet2").Range("E5")

to clear the "blinking cell(s)" use

Application.CutCopyMode = False

Hope that helps..

 

[Tom Ogilvy]

To copy only values without using the clipboard.

Range("C1").Resize(3,1).Value = Range("A1:A3").Value
or
Range("C1:C3").Value = Range("A1:A3").Value