Función personalizada Concatenar en Excel

La función Concatenar de Excel se me hace realmente lenta al momento de tener que unir varias celdas, por lo que me vi a la tarea de realizar una función personalizada en la que sólo elijo el rango que quiero unir y listo!.

He aquí el código:

Function EXCELeINFOCONCATENAR(rango As Range) As String
Dim t As String
Application.Volatile
For Each celda In rango
    t = t & " " & celda.Value
Next celda
EXCELeINFOCONCATENAR = Trim(t)
End Function