Boa noite!!

Poderia explicar melhor

Tenho umas macros que ocultam e exibem partes da tela

, eu não vi macro no seu arquivo

Att

Nesse arquivo não há macros, apenas a orientação de como fazer.

E como é que alguém vai fazer um código diferente, se nem sabe que código vc já tem???

Aliás, se vc já tem os códigos, pra que fazer outros???

Bom dia
"Tenho umas macros que ocultam e exibem partes da tela".
Conforme afirmei acima, usei palavras genéricas para expressar o que eu usava em algumas planilhas, o que não está explicito no pedido feito. A macro a seguir, uso em muitas planilhas mas de maneira simples sem o alcance da ajuda pedida.

Sub LinhaZero()
Dim rng As Range
Set rng = Range("A3:A25")
If rng.EntireRow.Hidden = True Then
rng.EntireRow.Hidden = False
Else
rng.EntireRow.Hidden = True
End If
Set rng = Nothing
End Sub

Grato

Bom dia!!

uso em muitas planilhas mas de maneira simples sem o alcance da ajuda pedida.

Seja objetivo!

Diga o que você quer exatamente, quais critérios para ocultar as "janelas"?

Att

Bom dia
O código postado conforme pode ser visto, oculta um intervalo dado. O outro funcionaria de modo semelhante mas com uma diferença: por meio de botões com números, se chamaria determinado intervalo, o qual ficaria exposto na tela e os demais ocultos ou seja alternância entre "janelas" a ser exposta. Cada intervalo da planilha tem um numero e a flecha indica o intervalo a ser mostrado. Basicamente é isso. Se não for possivel a solução, há de se encontrar outro modo.

fiz uma aqui
se o tamanho dos quadros forem sempre os mesmo e a distancia tbm.

Sub Macro2()
qdr = 6 '<<<<----nomero do quadro que vai ficar vizivel
qdr = ((qdr - 1) * 33) + 8
qdr = qdr & ":" & qdr + 33
Rows("9:475").EntireRow.Hidden = True
Rows(qdr).EntireRow.Hidden = False
End Sub

Até

para enquadrar melhor

troque

qdr = ((qdr - 1) * 33) + 8
qdr = qdr & ":" & qdr + 33

por esta

qdr = ((qdr - 1) * 33) + 9
qdr = qdr & ":" & qdr + 31

Att.

Ok. Vou testar por cá.

Edcronos, duplicando a macro, acho que resolve a questão.

nem precisa duplicar, como é uma para cada botão

para os botões

sub botão1()
qdr=1
mostra
end sub

sub botão2()
qdr=2
mostra
end sub

sub botão3()
...

a Macro

Public qdr As Long

Sub mostra()
qdr = ((qdr - 1) * 33) + 8
qdr = qdr & ":" & qdr + 33
Rows("9:475").EntireRow.Hidden = True
Rows(qdr).EntireRow.Hidden = False
End Sub

Ok. Muito grato pela contribuição.