I have the following custom function that finds the "nth" time a particular string shows up in a range:
Public Function Nth_Occurrence(range_look As Range, find_it As String, _
occurrence As Long, offset_row As Long, offset_col As Long)
Dim lCount As Long
Dim rFound As Range
On Error...