Habilite la función Deshacer con VBA para autocompletar al escribir en la lista desplegable

Estoy usando el siguiente código de VBA para permitir el autocompletado al escribir en la lista desplegable mediante un cuadro combinado.

Este código deshabilita las funciones "Deshacer" y "Rehacer" en las hojas a las que se aplica el código VBA. ¿Se puede modificar el código VBA para permitir estas funciones?

Sub hoja de trabajo privada_Cambio de selección (rango de destino ByVal)
'Actualizar por Extendoffice: 2018 / 9 / 21
Dim xCombox como OLEObject
Dim xStr como cadena
Dim xWs como hoja de trabajo
Tenue xArr

Establecer xWs = Application.ActiveSheet
On Error Resume Next
Establecer xCombox = xWs.OLEObjects("TempCombo")
Con xCombox
.ListFillRange = ""
.CeldaEnlazada = ""
.Visible = Falso
End With
Si Target.Validation.Type = 3 Entonces
Destino.Validación.InCellDropdown = Falso
Cancelar = True
xStr = Destino.Validación.Fórmula1
xStr = Derecha(xStr, Longitud(xStr) - 1)
Si xStr = "" Entonces Salir de Sub
Con xCombox
.Visible = Verdadero
.Izquierda = Objetivo.Izquierda
.Superior = Destino.Superior
.Ancho = Objetivo.Ancho + 5
.Altura = Objetivo.Altura + 5
.ListFillRange = xStr
Si .ListFillRange = "" Entonces
xArr = Dividir(xStr, ",")
Me.TempCombo.List = xArr
Si terminar
.LinkedCell = Destino.Dirección
End With
xCombox.Activar
Yo.TempCombo.DropDown
Si terminar
End Sub
Sub privado TempCombo_KeyDown (ByVal KeyCode como MSForms.ReturnInteger, ByVal Shift como entero)
Seleccionar código clave de caso
Caso 9
Aplicación.ActiveCell.Offset(0, 1).Activar
Caso 13
Aplicación.ActiveCell.Offset(1, 0).Activar
Fin Seleccionar
End Sub