VBA Non Breaking Space Alt0160

[mole999]

I have a large set of names, and I need to Transpose those into Last Name, First Name. 800 of which have either two first or split last names. I'm currently going through and adding an underscore _ but really want to convert the underscore to the non-breaking space.

Everything I have tried so far is not working and I know it must be simple

.Replace What:="_", Replacement:=Char(160), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End With

pointers please

 

[Fluff]

It should be Chr(160), Char is the Xl version

 

[mole999]

lol **** my eyes. ta

 

[Fluff]