Excel VBA Code to Force a certain zoom level

If (ActiveWindow.Zoom < 100) Then

    ActiveWindow.Zoom = 100

End If

Here's a one-liner that will do the same thing:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ActiveWindow.Zoom = Application.Max(ActiveWindow.Zoom, 100)
End Sub