Dúvidas Com Loop...macro Excel

[Guest Elias Junior]

Saudações gente,

estou tentando ocultar as linhas de uma planilha do excel com intervalo de linhas. Postei no fórum do Excel e um amigo me passou o seguinte código:

Sub Ocultar()

Rows("8:14").Select

Selection.EntireRow.Hidden = True

Rows("16:22").Select

Selection.EntireRow.Hidden = True

Rows("24:30").Select

Selection.EntireRow.Hidden = True

End Sub

O código funciona, é justamente o que eu quero. O problema é que a planilha possui 3600 linhas e, como nunca usei o VBA, eu iria digitar o intervalo da linhas até o final (imaginem...). Alguém conhece algum loop para ele ir completando essa Macro até a linha 3600? Alguém pode ajudar? Desde já agradeço.

[Graymalkin]

Que tal utilizando um laço For? Exemplo:

Sub Ocultar()
    For i = 8 To 3600 Step 8
        Rows(i & ":" & i + 6).Select
        Selection.EntireRow.Hidden = True
    Next i
End Sub

Certo?

Graymalkin