از کار افتادن کلیدهای undo و redo در زمان استفاده از دستور zoom در vba در اکسل

Question

مثلا با اجرای این فرمان

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

فرمان به جلو و بازگشت در اکسل از کار می افتد