Deselect Cells That Have Been Copied

OldFella · Apr 9th 2016

I have a piece of coding that copies a range of cells from a worksheet to another workbook and then returns the focus to the initial worksheet. On return to that initial worksheet the range of selected cells is still selected/highlighted, even though the active cell is outside that range. How do I unselect the previously selected range of cells, to remove the rotating, dotted line from around them?

Code

Windows("SM_Performance.xlsm").Activate
    Range("C3:C102").Select
    Selection.Copy
    Windows("M400AD.xlsm").Activate
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("SM_Performance.xlsm").Activate
    Range("K2").Select

**Batman** · Apr 9th 2016

Re: Deselect Cells That Have Been Copied

Hi OldFella,

Try

Code

Application.CutCopyMode = False

OldFella · Apr 9th 2016

Re: Deselect Cells That Have Been Copied

Perfect! Problem solved. Much appreciated.

**pike** · Apr 9th 2016

Re: Deselect Cells That Have Been Copied

or

Code

Workbooks("SM_Performance.xlsm").Sheets("Lists").Range("A3:C102").Copy Destination:=Workbooks("M400AD.xlsm").Sheets("Sheet1").Range("A3")

sktneer · Apr 11th 2016

Re: Deselect Cells That Have Been Copied

Quote from pike;768882

or

Code

Workbooks("SM_Performance.xlsm").Sheets("Lists").Range("A3:C102").Copy Destination:=Workbooks("M400AD.xlsm").Sheets("Sheet1").Range("A3")

pike

Please make me correct if I am wrong...
This method will use xlPasteAll while OP wants to paste Values only and that cannot be specified with the destination range in the method you proposed.

**pike** · Apr 11th 2016

Re: Deselect Cells That Have Been Copied

Hi sktneer_1,
Yes that is correct. the code will copy and paste all
another way

Code

Workbooks("M400AD.xlsm").Sheets("Sheet1").Range("A3:C102").value= Workbooks("SM_Performance.xlsm").Sheets("Lists").Range("A3:C102").value

sktneer · Apr 11th 2016

Re: Deselect Cells That Have Been Copied

Yeah that does the job but with a different approach to copy the values from one range into another.

Deselect Cells That Have Been Copied

Participate now!

Share

Users Viewing This Thread