Comprar a Coleção de 15.000 Macros, Funções e Fórmulas do Excel        Dicas   
Selecionando Worksheets a partir de certo ponto

Pergunta:
Tenho 7 Worksheets na seguinte ordem:
Worksheets(1) = Sheet7, Worksheets(2) = Sheet6,
Worksheets(3) = Sheet5, Worksheets(4) = Sheet4,
Worksheets(5) = Sheet1, Worksheets(6) = Sheet2,
Worksheets(7) = Sheet3

Como selecionar todas as Worksheets a partir da Worksheets(4) ?
A Procedure abaixo não faz exatamente o que eu quero. Onde está o erro ?

Sub SelecionandoTeste( )
Dim i As Integer
prim = 4
With ActiveWorkbook
For i = prim To .Worksheets.Count
.Worksheets(i).Select
Next
End With
End Sub

Solução 10;
Sua Proc seleciona somente a última Worksheet. e não todas as Worksheets (a partir da Quarta) como voce deseja.

Para selecionar todas as Worksheets a partir da quarta, a linha de comando .Worksheets(i).Select deve ser reescrita como .Worksheets(i).Select (i=prim)

Outra Solução 10:
Sub testandoSeleção( )
Dim MeuArray, c As Integer, i As Integer
c = ActiveWorkbook.Sheets.Count
ReDim MeuArray(4 To c)
For i = 4 To c
MeuArray(i) = i
Next i
Sheets(MeuArray).Select
End Sub

Outra Solução 10:
Sub XTesteSeleção( )
   VamosSelecionar ActiveWorkbook, 4
End Sub

Sub VamosSelecionar (wb As Workbook, _
ByVal MeuIndice As Integer)
Dim sh As Worksheet
wb.Worksheets(MeuIndice).Select
For Each sh In wb.Worksheets
If sh.Index >= MeuIndice Then sh.Select False
Next
End Sub