Zoom na Seleção

Pare de gastar tempo formatando o relatório para caber em uma tela.

Se o seu monitor for maior que o do seu chefe, já era...

Use a seguinte macro para sempre acertar:


Sub Z()

Range("A1:P40").Select 'Intervalo de células do seu relatório

ActiveWindow.Zoom = True

End Sub