Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'updateby Extendoffice 20170620 On Error GoTo LZoom Dim xZoom As Long xZoom = 100 If Target.Validation.Type = xlValidateList Then xZoom = 200 LZoom: ActiveWindow.Zoom = xZoom End Sub
Next
« Prev Post
« Prev Post
Previous
Next Post »
Next Post »
Subscribe to:
Post Comments (Atom)
ConversionConversion EmoticonEmoticon