Zoom ao selecionar célula


#1

Bom Dia!
Como aumentar zoom 110 ao selecionar a célula L4 ate L160 ao selecionar cada uma.


#2

Boa tarde! seria isso?

zOOM.xlsm (13,9 KB)


#3

Boa Tarde xlarruda!
Perfeito e isto mesmo que preciso.

Tentei desta forma:
If Target.Address = “L4” Then
ActiveWindow.Zoom = 110
Else
ActiveWindow.Zoom = 100
End If
Mas o zoom somente em L4, tentei com L4:L160, mas não deu certo.

Obrigado pela ajuda.
Valeu