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
' This function finds the nth occurrence of the find_it string in the range_look
' range, and will return the row and column offset
'
' Example: Nth_Occurrence(Sheet1!$A$2:$A$100,"Smith",2,0,3))
' will find the second occcurrence of "Smith" in the range A2:A100 and will return
' the value in the cell offset by 0 rows and 3 columns
Set rFound = range_look.Cells(1, 1)
For lCount = 1 To occurrence
Set rFound = range_look.Find(find_it, rFound, xlValues, xlWhole)
Next lCount
Nth_Occurrence = rFound.Offset(offset_row, offset_col)
End Function