У меня следующая загвоздка.
Есть код:

Columns("d:d").Select
Selection.Replace What:="  ", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Т.е. я заменяю в колонке "D"  два пробела на один (если где встречается).
Это очень не удобно, т.к. если пробелов стоит 10, то и 10 раз нужно запускать макрос.
Хотелось чтобы при запуске макроса я сам задавал с какой колонкой это нужно проделать и не 

10 раз, а один.

Т.е. типа следующего:

Dim d As String
 
d = InputBox("В какой колонке Вы хотите удалить пробелы?")
Columns("d:d").Select
Selection.Replace What:="  ", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Так ничего не получается. Может вообще каким-то другим образом это можно осуществить?
Прошу помощи...

andMegaM

БОЛЬШОЕ СПАСИБО работает. А если просто убрать все пробелы за один раз - это возможно?

andMegaM

Спасибо это класно. Наверо не совсем понятно задал вопрос, но мне хотелось бы немного другое.
Если есть какая нибудь фраза и между словами стоит 10 пробелов, то после обработки макроса (один раз) все 10 пробелов заменились на один пробел. 
Я думаю сели не заменой "  " на " " а как нибудь в цикле пока не станет один пробел или может специальная функция есть.
P. S.
В VBA я новичок.

andMegaM

Да нет, это я невнимательно читал.

Отлично!!! То что надо.  Большое спасибо. Тему считаю закрытой. Но если кому-нибудь пригодится, то мне подсказали еще один вариант.

Dim rng As Range, rng2 As Range
    On Error Resume Next
    Set rng = Application.InputBox( _
      Prompt:="Ãäå Âû õîòèòå óäàëèòü ïðîáåëû?", _
      Title:="Âûáîð", Type:=8, Left:=200, Top:=-65)
    If Not rng Is Nothing Then
        For Each rng2 In rng
            If rng2.Value <> "" Then rng2.Value = Application.WorksheetFunction.TRIM(rng2.Value)
        Next
    End If

Добавлено @ 17:20 


Добавлено @ 17:23 
Блин не увидел что за шрифт

Обязательно было это делать макросом? Если нет, то в Excel есть функция СЖПРОБЕЛЫ (или типа того, в текстовых), которая удаляет все лишние пробелы, оставляет по одному после каждого слова.