Function nurbol(t As String) With CreateObject("VBscript.RegExp") .Global = True .Pattern = "(FV)?[-#0-9?/]{6,}" If .test(t) Then For x = 0 To .Execute(t).Count - 1 Set r = Sheets(2).UsedRange.Find(.Execute(t)(x), lookat:=xlWhole) If Not r Is Nothing Then s = Sheets(2).Cells(r.Row, 4) & Chr(10) & Sheets(2).Cells(r.Row, 5) & Chr(10) End If Next x If Len(s) > 0 Then nurbol = Left(s, Len(s) - 1) Else: nurbol = "" End If End If End WithEnd Function