Copy and Paste Problem

[buddy2000]

Ok I ran this macro an the code was executed. However, the numbers in the cell must be a label. I still can not create formulas.

[vba]Sub CleanSheet1()
Dim Cell As Range
For Each Cell In Sheet1.UsedRange
Cell.Value = Trim(Cell)
Next Cell
End Sub[/vba]