MACROS : How to Remove tabs and carriage returns from worksheet cells in Excel

Remove tabs and carriage returns from worksheet cells

Sub CleanUp()

Dim TheCell As Range

 On Error Resume Next

 For Each TheCell In ActiveSheet.UsedRange

   With TheCell

     If .HasFormula = False Then

       .Value = Application.WorksheetFunction.Clean(.Value)

     End If

   End With

 Next TheCell

End Sub