Excel - Fechas entre dos fechas

Public Function fechasEntreFechas(f1 As Date, f2 As Date) As String

If f1 <= f2 Then

    While f1 <= f2

      fechasEntreFechas = fechasEntreFechas  & Format(f1, "dd/mm/yyyy") & ";"

      f1 = f1 + 1

    Wend

Else

  fechasEntreFechas = "La fecha 1 es mayor a la fecha 2 "

End If

End Function

'suponiendo que en A1 esta la fecha inicio y b1 la fecha Final.

=fechasEntreFechas(A1,B1)