Here's your distinct functions:
DCount(range)
Exceed(range, number_of_days)

__________________
Function DCount(rng As Range) As Long
Dim Dmin As Date, Dmax As Date, i As Long, d As Range
If rng.Columns.Count < 2 Then Exit Function
Dmin = Application.min(rng)
Dmax = Application.max(rng)
Set rng = rng.Resize(, 1)
ReDim cal(Dmax - Dmin) As Long
For Each d In rng
If VarType(d.Value) < vbDate Then Exit Function
If d d.Offset(, 1) Then Exit Function
For i = d To d.Offset(, 1)
cal(i - Dmin) = 1
Next
Next
DCount = Application.Sum(cal)
End Function
__________________

Function Exceed(rng As Range, n As Long) As String
Dim Dmin As Date, Dmax As Date, DY As Date, d As Range
Dim nc As Long, i As Long, j As Long, exc As Boolean
If rng.Columns.Count < 2 Then Exit Function
Dmin = Application.min(rng)
Dmax = Application.max(rng)
Set rng = rng.Resize(, 1)
ReDim cal(Dmax - Dmin) As Long
For Each d In rng
If VarType(d.Value) < vbDate Then Exit Function
If d d.Offset(, 1) Then Exit Function
For i = d To d.Offset(, 1)
cal(i - Dmin) = 1
Next
Next
For i = 0 To Dmax - Dmin - (n - 1)
DY = Application.min(i + 364, Dmax - Dmin)
nc = 0
For j = i To DY
nc = nc + cal(j)
Next
If nc = n Then
exc = True
Exit For
End If
Next
Exceed = IIf(exc, "Yes", "No")
End Function
__________________

Hi,
E.