Copy Column w/t Formulas to Another Workbook Paste Sepcial

[brentjohn]

Greeting.
I am using the following code to copy columns from wb2 (source workbook) to wb1 (destination workbook). Column CA has formulas within the cells that I need to paste as values.

wb2.Sheets("Bob Smith").Range("A1:A1100").Copy wb1.Sheets("Sheet1").Range("A1")
wb2.Sheets("Bob Smith").Range("BJ1:BJ1100").Copy wb1.Sheets("Sheet1").Range("B1")
wb2.Sheets("Bob Smith").Range("CA1:CA1100").Copy wb1.Sheets("Sheet1").Range("C1")

[alansidman]

change this:

wb2.Sheets("Bob Smith").Range("CA1:CA1100").Copy wb1.Sheets("Sheet1").Range("C1")

to

wb2.Sheets("Bob Smith").Range("CA1:CA1100").Copy
wb1.Sheets("Sheet1").Range("C1").PasteSpecial xlpastevalues

[brentjohn]

alansidman,
Thank you for your help! Unfortunately, the code stops at the end of the first row in your code.

[brentjohn]

alansidman,
Duh, I just realized I didn't copy/paste your entire code. Sorry. Works perfectly!!

[alansidman]

Glad you got it working. Thanks for the Rep