Reference zoom levels to user entry cells on same sheet

I would like to allow users to adjust the regular zoom level and expanded zoom level when using a validation list. This macro works fine, but presetting this for user presents a problem with not knowing what screen size they are working on. The line xZoom =52 represents the zoom level when not in a validation cell. Can the 52 reference a cell on the sheet where the user can set it. The same for the xZoom =90 use the same active sheet and for example cell A1 = the 52 and A2 = the 90 setting. This macro is loaded into the sheet code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo LZoom
Dim xZoom As Long
xZoom = 52
If Target.Validation.Type = xlValidateList Then xZoom = 90
LZoom:
ActiveWindow.Zoom = xZoom
End Sub

Originally Posted by spyac

Can the 52 reference a cell on the sheet where the user can set it. The same for the xZoom =90

Yes- like this

Please Login or Register  to view this content.

Solved
Thank You for the help The Range() worked great