selection of several worksheeets
 

Hi

I'd like to select several excel worksheets using a VBA macro.
I know: Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")).Select
But how can I do it without specifying each sheet name?
For example using something like ... from sheet 3 to sheet 8 ... .Select?

If possible, please help me.
Thank you.
Entaf

selection of several worksheeets
 

Sub AA()
Dim i as Long
for i = 3 to 8
worksheets(i).Select i = 3
Next
End sub

would be one way. Another is to build an array, then use that to select the
sheets

Sub AB()
Dim shlist()
Dim i As Long, k As Long
ReDim shlist(0 To 5)
i = 0
For k = 3 To 8
shlist(i) = Worksheets(k).Name
i = i + 1
Next
Worksheets(shlist).Select
End Sub

--
Regards,
Tom Ogilvy


"Enrico" wrote in message
...
Hi

I'd like to select several excel worksheets using a VBA macro.
I know: Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")).Select
But how can I do it without specifying each sheet name?
For example using something like ... from sheet 3 to sheet 8 ... .Select?

If possible, please help me.
Thank you.
Entaf

selection of several worksheeets
 

Thank you very much.
I got what I needed.

Entaf


Tom Ogilvy wrote:

Sub AA()
Dim i as Long
for i = 3 to 8
worksheets(i).Select i = 3
Next
End sub

would be one way. Another is to build an array, then use that to select the
sheets

Sub AB()
Dim shlist()
Dim i As Long, k As Long
ReDim shlist(0 To 5)
i = 0
For k = 3 To 8
shlist(i) = Worksheets(k).Name
i = i + 1
Next
Worksheets(shlist).Select
End Sub