VBA code to trim spaces and tab from blank cells

Dim Ccell As Range

For Each Ccell In Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlCellTypeLastCell))
  Ccell = Trim(Ccell)
Next

or

Dim Ccell As Range

For Each Ccell In Cells(1, 1).SpecialCells(xlCellTypeConstants, 23)
  Ccell = Trim(Ccell)
Next

Ricardo, FWIW using either of:

Application.Transpose / Application.WorksheetFunction.Transpose

is generally preferable than using VBA Trim because the VBA equiv. does not remove superfluous spaces mid string unlike the native version.

To illustrate (via Immediate Window in VBE):

?Trim("Apples   Oranges")

?Application.Trim("Apples   Oranges")

In this instance the cells contain only blank spaces then obviously the VBA Trim would suffice but the above is just worth bearing in mind in general terms...