Solved: Solved Zoom in if specific cells are selected

[Kenneth Hobs]

[VBA]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, Range("D8"))
If r Is Nothing Then
ActiveWindow.Zoom = 100
Else: ActiveWindow.Zoom = 125
End If
End Sub[/VBA]