Hi all,

I'm new to VBA programming and I have what should be a simple question
for you experts!

Basically, I have 2 workbooks and I want to copy a range of cells from
Workbook A and paste them in Workbook B. I am getting a 'subscript out
of range' error when I try to pase and I cannot figure out why. Below
you will find the code that I am using:

Set wbDest = ActiveWorkbook
Set wbSource = Workbooks.Open(cdbBrowse.Filename)
wbSource.Worksheets("Sheet1").Range("A9:E13").Copy
Destination:=wbDest.Worksheets("Sheet1").Range("A9 :E13")

I know the problem is something with the Destination because if I just
do the Copy statement with no destination, I get no error.

Also, right now I have some other code in place that inserts blank
lines prior to doing the paste. Is there a way that I can just insert
the copied cells???

Thank you so much in advance for your help!

The copy and paste are written as one line.
If you make two lines out of it, a line continuation character
is required. Like this:

....copy _
Destination:=...
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



wrote in message
Hi all,
I'm new to VBA programming and I have what should be a simple question
for you experts!
Basically, I have 2 workbooks and I want to copy a range of cells from
Workbook A and paste them in Workbook B. I am getting a 'subscript out
of range' error when I try to pase and I cannot figure out why. Below
you will find the code that I am using:

Set wbDest = ActiveWorkbook
Set wbSource = Workbooks.Open(cdbBrowse.Filename)
wbSource.Worksheets("Sheet1").Range("A9:E13").Copy
Destination:=wbDest.Worksheets("Sheet1").Range("A9 :E13")

I know the problem is something with the Destination because if I just
do the Copy statement with no destination, I get no error.

Also, right now I have some other code in place that inserts blank
lines prior to doing the paste. Is there a way that I can just insert
the copied cells???

Thank you so much in advance for your help!

Hi, thank you for your response. In my code I do have it all in one
line. It just appears to be 2 lines because of the way the line breaks
in the post!

Are you sure that there is a sheet named "Sheet1" in the destination workbook?
If it is there, check to make sure that a space hasn't been added to the sheet name.
--
Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html



wrote in message
Hi, thank you for your response. In my code I do have it all in one
line. It just appears to be 2 lines because of the way the line breaks
in the post!