Private Sub Worksheet_SelectionChange(ByVal R As Range)
Dim P As Range
Set P = Union([ç1], [ç2], [ç3], [ç4], [ç5])
ActiveWindow.Zoom = IIf(Intersect(R, P) Is Nothing, 60, 200)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWindow.Zoom = 60
End Sub