Remove space in header

[baskar5353]

hi

in first Row i'm having header in that if it there 2 space means i need to remove one space.

i need only one space between the words

how can do it in VBA

 

[Dendro]

CTRL+H
replace 2 spaces by 1

 

[baskar5353]

how to do in VBA

 

[Dendro]

I don't see the need to do it in vba, but here you go:

 Cells.Replace What:="  ", Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False