Excel VBA Code to Force a certain zoom level

Question

I have a Validated Dropdown list in Excel that is unreadable if zoom is less than 100. I checked on the internet and fvound that I can not alter the size of the Validated list text size so I want to enforce a set zoom of 100.

I have the code to do this as follows

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

This works and is fine for people who use zoom less than 100, but if people use a greater than 100 zoom it restricts the zoom to 100. Is there a way to overcome this, something along the lines of an If-Else statement.

If zoom less than 100 then zoom = 100 else if zoom greater than 100 do nothing

Thanks.

Answer 1

If (ActiveWindow.Zoom < 100) Then

    ActiveWindow.Zoom = 100

End If

Answer 2

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