Vlookup & Return All Values 2

Very similar to the original thread 'vlookup & return all values', i need to lookup a velue and return all the relevant values.

Unlike the original thread, i need the macro to return an array of cells, rather than just one.

The macro from the original post was this

Public Function FindSeries(TRange As Range, MatchWith As String)

For Each cell In TRange
If cell.Value = MatchWith Then
x = x & cell.Offset(0, 1).Value & ", "
End If
Next cell

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

End Function ............................