Замена любого кол-ва повторов " " подряд на 1

Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
'искать по всему тексту, по умолчанию False - будет найдено только первое совпадение
reg.Global = True
'+ означает, что заменяем два, три, четыре и более пробелов подряд на один пробел
reg.Pattern = " +"
Строка_таблицы_Word = reg.Replace(Строка_таблицы_Word, " ")
'заменяем пробел, следом идущую запятую на запятую, то есть удаляем пробел перед запятой
reg.Pattern = " ,"
Строка_таблицы_Word = reg.Replace(Строка_таблицы_Word, ",")
'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
Set reg = Nothing

Sub Replace_TwoSpaces()
    Dim wsSh As Worksheet
    For Each wsSh In Sheets
        wsSh.UsedRange.Replace "  ", "", xlPart
    Next wsSh
End Sub

reg.Pattern = " +"
Строка_таблицы_Word = reg.Replace(Строка_таблицы_Word, " ")

Do While InStr(1, wsSh.UsedRange, "  ") > 0
wsSh.UsedRange.Replace "  ", " ",

Sub Replace_TwoSpaces()
    Dim wsSh As Worksheet, rRng As Range
    For Each wsSh In Sheets
        Do
            Set rRng = wsSh.UsedRange.Find("  ", , xlValues, xlPart)
            If Not rRng Is Nothing Then wsSh.UsedRange.Replace "  ", " ", xlPart
        Loop Until rRng Is Nothing
    Next wsSh
End Sub