Right So I have tried to play about with what you just replied with, I have written this:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B4,C4,D4,E4,B17,B30,T3,T15")) Is Nothing Then
ActiveWindow.Zoom = 70
ActiveWindow.ScrollColumn = 1...