- could there be more than 1 instance of the repeated series?
- if so, what should happen?
Function CountConsecutive(MyString As String, MyRange As Range)
Dim Count As Long, MaxCount As Long, Cll As Range
For Each Cll In MyRange
If Cll.Value = MyString Then
Count = Count + 1
Else
If Count > MaxCount Then MaxCount = Count
Count = 0
End If
Next Cll
CountConsecutive = MaxCount
End Function