Llamar Function en un Sub

Tengo esta Function que une varias celdas en una sola y adicional le pone,

Además si excede la cantidad de caracteres manda un mensaje diciendo que se excedió

Lo que ando buscando es como llamar dentro de una Función Sub esta función que describo abajo.

Public Function ECONCAT(rango As Range, Optional Separador As Variant) As String
Dim valor As String
Dim lenTexto As Integer

On Error GoTo MSJ

Application.Volatile
For Each celda In rango
If Not IsEmpty(celda.Value) Then
If IsMissing(Separador) Then Separador = ","
valor = valor & Separador & celda.Value
Else
End If
Next celda

If Separador = "" Then
ECONCAT = valor
Else

lenTexto = Len(valor)
ECONCAT = Right(valor, lenTexto - 1)
End If

Exit Function

MSJ:
MsgBox "Se excede la cantidad de caracteres."

End Function

Añade tu respuesta

Haz clic para o