[EXCEL + VBA] Metodo veloce per il replace

[valtim33]

Salve a tutti.
Ho una tabella excel in cui dovrei sostituire a dei codici la stringa decodificata. Mi spiego meglio, supponiamo di avere la colonna "D" in cui ci sono i seguenti valori per riga: 12345, 12346, 12347 e voglio sostituire a questi codici una stringa di decodifica (ad esempio al codice 12345 voglio sostituire "casa").
La prima cosa che mi è venuta in mente è stata quella di utilizzare il metodo range.replace (come riportato sotto)

Worksheets("foglio1").Columns("D").Replace_ What:="12345",_ Replacement:="casa", SearchOrder:=xlByColumns, MatchCase:=False,_ SearchFormat:=False, ReplaceFormat:=False

tuttavia dato che devo attuare questa sostituzione su circa 10000 valori e le possibili decodifiche sono 2000 la sub diventa computazionalmente lenta (ho ripetuto il comando range.replace per 2000 volte ed effettuato ogni volta la sostituzione su tutta la colonna). c'è nessuno di voi che conosce un metodo più veloce per fare il replace?
grazie anticipatamente