On Selection Zoom out and select B1:S10 copy

[polska21800]

Hi I currently have the following code that when I click on a pulldown menu it zooms in then when you clicks of zooms out.

What I want is to still zoom in but once I click on selection it zooms out and selects range B1:s10 and copys the selection.

I'm not sure if its possible to zoom out and the rest on selection, so the other option is once item is selected from the pulldown and clicked on another cell to zoom out (like it does now) then select the range and copy.

Thanks for the help.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


On Error GoTo LZoom
Dim xZoom As Long
xZoom = 73

If Target.Validation.Type = xlValidateList Then xZoom = 130

LZoom:
ActiveWindow.Zoom = xZoom

End Sub