Excel - me urge concatenar un rango con condiciones

'------------------------------------------------------------------|

'                                                                  |

'   PROPÓSITO:                                                     |

'   Función definida por el usuario para concatener celdas         |

'   de manera masiva                                               |

'                                                                  |

'------------------------------------------------------------------|

Function Concatenar_Masivo(Desde As Date, Hasta As Date, Rango As Range, Delimitador As String)

    Dim i, SE As Boolean, Resultado As String

    Resultado = "": SW = False

    For Each i In Rango

        If IsDate(i) Then

            If i >= Desde And i <= Hasta Then SW = True

        Else

            If SW Then Resultado = Resultado + Delimitador + Trim(i): SW = False

        End If

    Next

    Concatenar_Masivo = Mid$(Resultado, Len(Delimitador)+1) ' ---&--- Quito el primer delimitador

End Function