Thanks guys I modified to code to the following and it worked great.

Sheets("Raw Projections").Range("U6:U500").Select
Selection.Replace What:=Chr(160), Replacement:=Chr(32), LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False
For Each Rng In ActiveSheet.Range("U6:U500")
Rng.Value = LTrim(Rng.Value)
Next Rng