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