Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D7,F23,F27,R23,R27,AD23,AD27,B38,N38,AA38,B 46,N46,AA46,B61,R61,Y61,AC61,B76,S76,B84,S84,B92,S 92")) Is Nothing Then
ActiveWorkbook.CustomViews.Add ViewName:="x", PrintSettings:=True, _
RowColSettings:=True
ActiveWindow.Zoom = 300
Else
ActiveWindow.Zoom = 100
End If
End Sub