Delete spaces in a cell containing text

[olivier]

I am looking for a VBA code permitting to delete all the spaces in a cell containing text; the spaces can be before and after the text

Thanks

 

[Tom Urtis]

If I understand you correctly, all you want to do is eliminate spaces within text.

This macro does that for column A, by replacing a spacebar character with nothing.

Modify for range; if I'm misinterpreting, please repost.

Sub DeleteSpaces()
Columns("A:A").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False
End Sub

Tom Urtis