dim wb as object, wb2 as object

set wb=xlApp.Workbooks.Open(path1)
set wb2=xlApp.Workbooks.Open(path2)

wb1.Worksheets("an_fb_diff").Range("A2:A237").Copy _
destination:=wb2.Worksheets("an_fb").Range("A3")

Tim



"Gary" wrote in message
...
I am using VBA code in Access to paste 1 column from workbook 1 to workbook
2.

This is the code that works by itself:

xlApp.Workbooks.Open(pathS).Worksheets("an_fb_diff ").Range("A2:A237").Copy
destination:=xlApp.Workbooks.Open(path).Worksheets ("an_fb").Range("A3")

I am unable to following it by another one because I am using the Open. I
wish to repeat the pasting from a different worksheet.

Can someone help me in indicating what I should replace the Open with????

I tried:

xlApp.Workbooks(pathS).Worksheets("cntl_fb_diff"). Range("A2:A110").Copy
destination:=xlApp.Workbooks(path).Worksheets("cnt l_fb").Range("A3")

The above gives me an error!!!

Help is deeply appreciated!!!


Gary