Worksheet copy to another workbook
 

To all,

I have a workbook called GETDATA.xls. I want to be able to copy all
the worksheets in this workbook apart from one called ' START' to
workbook ANALYSIS.xls.

Please could someone help me with this?

Thanks

Joe Crabtree

Worksheet copy to another workbook
 

put this in your ThisWorkbook module.
Sub moveSheets()
For i = 1 To Sheets.Count
If Sheets(i).Name < "start" Then

Sheets(i).Move Befo=Workbooks("analysis.xls").Sheets(1)
End If
Next
End Sub

--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"joecrabtree" wrote:

To all,

I have a workbook called GETDATA.xls. I want to be able to copy all
the worksheets in this workbook apart from one called ' START' to
workbook ANALYSIS.xls.

Please could someone help me with this?

Thanks

Joe Crabtree