Copy Destination - Values Only

[Foz1980]

Hi all,

Please can someone help me.
I need to get the below code to just paste values so I keep the destination formatting.

ActiveWorkbook.Sheets("Data").Range("A:A").Copy Destination:=Workbooks("Convened for August 2016 Tracker.xlsm").Sheets("Sheet1").Range("L:L")

The code works fine but copies formatting as well which is what I want to avoid.

Thanks,

Chris

 

[RoryA]

You need to do the Copy and Paste separately:

ActiveWorkbook.Sheets("Data").Range("A:A").Copy
Workbooks("Convened for August 2016 Tracker.xlsm").Sheets("Sheet1").Range("L1").PasteSpecial xlPasteValues

 

[wideboydixon]

You need to do it in two lines:

ActiveWorkbook.Sheets("Data").Range("A:A").Copy
Workbooks("Convened for August 2016 Tracker.xlsm").Sheets("Sheet1").Range("L:L").PasteSpecial Paste:=xlPasteValues

WBD

 

[Foz1980]

Thanks both, much appreciated.