Ayuda funcion contar dias festivos entre dos fecha

Function CuentaFestivos(FechaInicio As Date, FechaFin As Date) As Integer

    Dim SumaFestivos As Integer

    Dim I As Date

    Dim J As Integer

    Dim UltimaFila As Integer

    UltimaFila = Range("A1048576").End(xlUp).Row

    For I = FechaInicio To FechaFin

        If Weekday(I, vbMonday) > 5 Then

            'Fin de semana

            SumaFestivos = SumaFestivos + 1

        Else

            'Hay que comprobar si es Festivo en la lista

            For J = 2 To UltimaFila

                If Cells(J, 1).Value = I Then

                    'Existe luego hay que sumarlo ya que es festivo y no es Sabado ni Domingo

                     SumaFestivos = SumaFestivos + 1

                     Exit For

                End If

            Next J

        End If

    Next I

    CuentaFestivos = SumaFestivos

End Function

Function CuentaFestivosII(FechaInicio As Date, FechaFin As Date) As String

    Dim SumaFestivos As Integer

    Dim SumaSabados As Integer

    Dim SumaDomingos As Integer

    Dim I As Date

    Dim J As Integer

    Dim UltimaFila As Integer

    UltimaFila = Range("A1048576").End(xlUp).Row

    For I = FechaInicio To FechaFin

        Select Case Weekday(I, vbMonday)

            Case 6

                'Sabados

                SumaSabados = SumaSabados + 1

            Case 7

                'Domingos

                SumaDomingos = SumaDomingos + 1

            Case Else

                'Hay que comprobar si es Festivo en la lista

                For J = 2 To UltimaFila

                    If Cells(J, 1).Value = I Then

                        'Existe luego hay que sumarlo ya que es festivo y no es Sabado ni Domingo

                        SumaFestivos = SumaFestivos + 1

                        Exit For

                    End If

            Next J

        End Select

    Next I

    CuentaFestivosII = SumaSabados & " Sábados, " & SumaDomingos & " Domingos y " & SumaFestivos & " Festivos"

End Function