Sheets(1).Cells.Replace What:=Chr(10), Replacement:=" " Sheets(1).Cells.Replace What:=" ", Replacement:=" "