Hi All,

I am trying to copy a range of data from a series of opened workbooks
and paste them into a new workbook? How can I do this? So far, I've
figured out how to copy the range I want from one notebook, but that's
all. Here is my code for this:

Sub Macro1()
Range("A6", Range("A6").End(xlDown).End(xlToRight)).Select
Selection.Copy
End Sub

Thanks in advanced for any help.

mchangun,
Record a macro whilst performing the desired actions.
Edit the code as necessary.

NickHK

wrote in message
ups.com...
Hi All,

I am trying to copy a range of data from a series of opened workbooks
and paste them into a new workbook? How can I do this? So far, I've
figured out how to copy the range I want from one notebook, but that's
all. Here is my code for this:

Sub Macro1()
Range("A6", Range("A6").End(xlDown).End(xlToRight)).Select
Selection.Copy
End Sub

Thanks in advanced for any help.

Recording a marco helps with the paste part of the code, but doesn't
help me with looping through the opened workbooks.

mchangun,
Dim WB as Workbook

For each WB in workbooks
...code
Next

NickHK

wrote in message
ups.com...
Recording a marco helps with the paste part of the code, but doesn't
help me with looping through the opened workbooks.