Use two separate commands, copy then pastespecial:

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

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

--
Regards,
Tom Ogilvy


"Edgar" wrote in message
...
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").Rang e("A16")

TIA