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
ESTE CODIGO SE PUEDE COPIAR DIRECTAMENTE EN UNA MACRO PARA EXCEL 2010?
Este código aplica para cualquier versión de excel. Pero es forzoso que esté dentro de un módulo vba.