Macro para que se ejecute en toda la hoja

H o l a:

Así quedaría la macro para funcionar en toda una hoja, pero solamente en las celdas que tengan información, ya que si lo ejecutas con sheets("Hoja1"). Cells va a demorar mucho.

Sub EliminarInicio()
'Por.Dante Amor
    Dim celda As Range
    For Each celda In Sheets("Hoja1").Cells.SpecialCells(xlCellTypeConstants, 23)
        celda.Value = WorksheetFunction.Trim(celda.Value)
    Next
End Sub

Sal u dos