VB: 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
The use this function to find your string in the excel book and return all adjacent value
A1:A7 contains the range where the function should search
Column A contains the text string you want to look for
Column B contains the values you want to return
This fix was picket up here.