Abilita la funzione di annullamento con VBA per il completamento automatico durante la digitazione nell'elenco a discesa

Sto usando il seguente codice VBA per consentire il completamento automatico durante la digitazione nell'elenco a discesa utilizzando una casella combinata.

Questo codice disabilita le funzioni "Annulla" e "Ripeti" sui fogli a cui viene applicato il codice VBA. Il codice VBA può essere modificato per consentire queste funzioni?

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
'Aggiorna entro Extendoffice: 2018 / 9 / 21
Dim xCombox come OLEObject
Dim xStr come stringa
Dim xWs come foglio di lavoro
Dim xArr

Imposta xWs = Application.ActiveSheet
On Error Resume Next
Imposta xCombox = xWs.OLEObjects ("TempCombo")
Con xCombox
.ListFillRange = ""
.LinkedCell = ""
.Visibile = Falso
Fine Con
Se Target.Validation.Type = 3 Allora
Target.Validation.InCellDropdown = Falso
Annulla = Vero
xStr = Target.Validation.Formula1
xStr = Destra(xStr, Len(xStr) - 1)
Se xStr = "" Quindi esci da Sub
Con xCombox
.Visible = Vero
.Sinistra = Destinazione.Sinistra
.Top = Destinazione.Top
.Larghezza = Target.Larghezza + 5
.Altezza = Target.Altezza + 5
.ListFillRange = xStr
Se .ListFillRange = "" Allora
xArr = Dividi(xStr, ",")
Me.TempCombo.List = xArr
End If
.LinkedCell = Destinazione.Indirizzo
Fine Con
xCombox.Attiva
Me.TempCombo.DropDown
End If
End Sub
Private Sub TempCombo_KeyDown (ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Seleziona Codice chiave caso
Caso 9
Application.ActiveCell.Offset(0, 1).Attiva
Caso 13
Application.ActiveCell.Offset(1, 0).Attiva
End Select
End Sub