getting rid of space so everything is left justified

[MNN]

I downloaded a table and there are cells that have spaces before the data. How can I get rid of the spaces and left justify the data. a click on the justify button will not help

[HansV]

You could run the following macro:

Sub TrimCells()
  Dim oCell As Range
  For Each oCell In ActiveSheet.UsedRange.Cells
	oCell = Trim(oCell)
  Next oCell
End Sub

Warning: don't use this version on a sheet that contains formulas; the code would replace the formulas with their result.

[MNN]

Thank you.