Как во всей книге Excel из 10-ти листов удалить " " двойные и более пробелы на " " - VBA - Ответ 8921454

Sub RSpace()
    Dim i&, j&, lLastRow&, lLastCol&
    Dim iCount%, iArr%
    Dim str$
    Dim ws As Worksheet
    For iCount = 1 To ThisWorkbook.Worksheets.Count 'перебираем все листы книги
        Set ws = ThisWorkbook.Worksheets(iCount) 'запоминаем текущий лист
        lLastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row 'определяем последнюю строку по первому столбцу
        lLastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column 'определяем последний столбец по строке по первой строке
        For i = 1 To lLastRow 'перебираем строки
            For j = 1 To lLastCol 'перебираем столбцы
                Dim Arr() As String 'объявляем массив слов
                Arr = Strings.Split(ws.Cells(i, j).Value, " ") 'разделяем строку по словам, разделенными пробелами
                str = ""
                For iArr = 0 To UBound(Arr) 'перебираем все слова в массиве
                    If Strings.Len(Strings.Replace(Arr(iArr), " ", "")) > 0 Then str = str & Strings.Replace(Arr(iArr), " ", "") & " " 'собираем новую строку с одним пробелом, если элемент массива не состоит только из пробелов
                Next iArr
                If Strings.Right(str, 1) = " " Then
                    str = Strings.Left(str, Strings.Len(str) - 1) 'удаляем последний пробел
                End If
                ws.Cells(i, j).Value = str 'возвращаем значение в ячейку уже с одним пробелом между словами
            Next j
        Next i
    Next iCount
    MsgBox "Done"
End Sub