Вытащить из ячейки все символы кроме цифр - VBA

Формулировка задачи:

Подскажите пожалуйста, как вытащить из ячейки все символы кроме цифр в ответе где два пробело д.б. подряд неотобразились в таблице, но логика понятна (все кроме цифр)

	правильный ответ
123456789, 123 лесоповал лес	, лесоповал лес
1234567812345678 3241, "ййй"	, "ййй"
8777лл про лес	лл про лес
4586 ро 123458	ро
ццц 444 5556; длдлд	ццц ; длдлд

Решение задачи: «Вытащить из ячейки все символы кроме цифр»

textual
                            Листинг программы 
                        

                            Sub pr1()
    Dim x As Range
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "\d+"
        For Each x In Selection
            x.Offset(, 1) = .Replace(x, "")
        Next
    End With
End Sub
                        