Thanks Brian. How would I use your statement if I wanted all of the sheets to
be copied to a new workbook?

"Brian Taylor" wrote:



For i = 1 To Worksheets.Count
Sheets(i).Copy Befo=Workbooks("Book2").Sheets(2)
Next wks

or

For each wks in worksheets
wks.copy Befo=Workbooks("Book2").Sheets(2)
Next wks