Удаление пробелов в выделенном фрагменте текста

Sub DelSpace1()
'Удаление всех пробелов в выделенном фрагменте текста
    Dim rng As Range
    Set rng = Selection.Range

    With rng.Find
    .Text = " "
    .Replacement.Text = ""
    .Wrap = wdFindStop
    .Execute Replace:=wdReplaceAll
    End With
End Sub