Hi,

Is anyone familiar with OO vB language? I need the following code snippet converted to work with a backdated OO that dosen't yet have VBA support:

Public Function FindSeries(TRange As Range, MatchWith As String)
dim i as long
i= 1
For Each cell In TRange
If cell.Value = MatchWith Then
x = x & i & ") " & cell.Offset(0, 1).Value & vbNewLine
i=i+1
End If
Next cell

FindSeries = Left(x, (Len(x) - 2))

End Function