Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column > 1 Then ActiveWindow.Zoom = 50: Exit Sub
ActiveWindow.Zoom = IIf(Target.Row < 6, 150, 50)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column > 1 Then Exit Sub
If Target.Row > 6 Then ActiveWindow.Zoom = 50
[A6].Select
End Sub