polska2180
Active Member
- Joined
- Oct 1, 2004
- Messages
- 384
- Office Version
- 365
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
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