Paste Special

[Edgar]

Hi

I am trying to change the following code to PasteSpecial -
Values so as not to Change the formatting on my template
sheet but I cant find the way to do it, does any one know
how?

Set outfile = Workbooks.Open("C:\Documents and
Settings\ThoemmE1\Desktop\Remittance Project\Remittance
Template.xls")

Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
Destination:=outfile.Worksheets("Remittance").Range("A16")

TIA

 

[Tom Ogilvy]

Use two separate commands, copy then pastespecial:

Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy

outfile.Worksheets("Remittance").Range("A16").PasteSpecial Paste:=xlValues