Excel Worksheet Range

[ATSRND]

I would like to write the code to select a range of worksheets in MS Excel 07, starting with the Activesheet and ending with the last sheet.

[kadghar]

I would like to write the code to select a range of worksheets in MS Excel 07, starting with the Activesheet and ending with the last sheet.

create an array with the numbers of the worksheets you want to select, or with its names.

Sub one()
Dim i As Integer
Dim a() As Integer
ReDim a(Worksheets.Count - ActiveSheet.Index)
For i = 0 To UBound(a)
    a(i) = i + ActiveSheet.Index
Next
Worksheets(a).Select
End Sub

Here i used the numbers, but instead you can define 'a' as a string, and put in the FOR something like:
a(i) = worksheets(i+activesheet.index).name

HTH