Sub Cleaningvides()
With Selection
.Replace what:=Chr(160), replacement:="", _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
.Replace what:=Chr(13) & Chr(10), replacement:="", _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
.Replace what:=Chr(10), replacement:="", _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End With
End Sub