CleanedVariable = Application.WorksheetFunction.Clean(YourVariableToBeCleaned)
Try something like this.Code:Range("A1").Value = Application.WorksheetFunction.Clean(Range("A1"))
You might also be interested in seeing the "extended" CleanTrim UDF (user defined function) that I posted here...Barrie & Norrie, thank you both very much!