You could use something like the following to move the first 50 sheets from the active workbook to a new workbook:

Sub MoveSheets()
Dim shtArray() As Integer
Dim i As Integer

For i = 1 To 50
ReDim Preserve shtArray(1 To i)
shtArray(i) = i
Next i

Sheets(shtArray).Move
End Sub


--

John Green - Excel MVP
Sydney
Australia


"Young-Hwan Choi" wrote in message ...
How do I select multiple sheets?
What I want to do is to move some sheets to a new workbook.

Moving the sheets is inside For ~ next. Generating several sheets is also in
the For ~ Next. The number of sheets changes. When I record a macro for this
job, the code looks like Sheets(Array(sheet1, sheet2,.....)) According to
the recording, I have to type all the sheets I want to move.

Is there any better method for selecting multiple sheets, let's say from
sheets1 to sheets 50, like Range("A1:A30")?

thanks.