TrimTextRange

[MrPetreli]

Hi Guys

I have a Trim text code, but how do I change it to trim only the rang
selected?

Sub TrimTextRange()

Application.ScreenUpdating = False

Dim cell As Range, areaToTrim As Range
Set areaToTrim = Sheet1.Range("A1:H1000")
For Each cell In areaToTrim
cell.Value = Trim(cell.Value)
Next cell

End Su

 

[Harald Staff]

Set areaToTrim = Selection

HTH. Best wishes Harald