избавиться от лишних пробелов между словами и вначале и в конце фразы, Excel

Удаляем не только двойные пробелы между слов, но и одинарные перед фразой и после ее в конце.
Но есть проблема с Ctrl+Z,
поэтому:
сделали + скопировали значения, потому удалили.
У меня лично за долгое время реально вис сам Excel.
---

Function myTrim(Cell As Range) As String
    myTrim = application.Trim(Cell)
End Function