Macro para que se ejecute dentro de un rango

Para DAM

Aquí la nueva pregunta

Que la macro actúe en un rango sin tener que seleccionar ninguna celda o rango sin tener que mostrar la hoja.

'La Macro para Eliminar los espacios en inicio, intermedios y finales de la cadena de texto es esta última:
Sub EspaciosVacios_TodaHoja()
'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