مثلا با اجرای این فرمان
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100
If Target.Validation.Type = xlValidateList Then xZoom = 150
LZoom:
ActiveWindow.zoom = xZoom
End Sub
فرمان به جلو و بازگشت در اکسل از کار می افتد
