Zoom ohne select

möchte einen Bereich auf Bildschirmgröße ohne select zoomen.

Geht das?

Bisher so:
Sub AnsichtAnpassen1()
Application.ScreenUpdating = False
Range("A1:Y27").Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
End Sub

Gruß
Felix