Удалить число из текста - VBA

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

sub no Не уверен , что выбрал правильный раздел... Но просто "excel" здесь не нашел Эта тема уже не единожды поднималась на разных форумах (Оставить только текст и др.) Но все что-то не то и не так ... Число постоянно к чему-то привязано (или к пробелам, или к длине строки ...) ТАК ЕСТЬ 659гвозди оцинкованые 7658764куртка зимняя утепленная 23дермантин (искусственный заменитель кожи) зеленый ТАК ХОЧУ гвозди оцинкованые куртка зимняя утепленная дермантин (искусственный заменитель кожи) зеленый Есть рабочая формула-монстр

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(C16;0;"");1;"");2;"");3;"");4;"");5;"");6;"");7;"");8;"");9;"")

хотел немного причесать

=ПОДСТАВИТЬ(A1;{0;1;2;3;4;5;6;7;8;9};"")

Почему машине не нравится прическа?!

Решение задачи: «Удалить число из текста»

textual
                            Листинг программы 
                        
                            =ПСТР(B4;ПОИСКПОЗ(ЛОЖЬ;ЕЧИСЛО(-ПСТР(B4;СТРОКА($1:$99);1)););99)