Function Wbr&(s$)
Dim i%, txt$, nmb$, w As Worksheet
If Asc(UCase(Left(s, 1))) > 64 And Asc(UCase(Left(s, 1))) < 91 Then
i = 1
Do
txt = txt & UCase(Right(Left(s, i), 1))
i = i + 1
Loop Until Asc(UCase(Right(Left(s, i), 1))) < 65 Or Asc(UCase(Right(Left(s, i), 1))) > 90
If Asc(Right(Left(s, i), 1)) > 47 And Asc(Right(Left(s, i), 1)) < 58 Then
Do
nmb = nmb & Right(Left(s, i), 1)
i = i + 1
Loop Until (Asc(Right(Left(s, i), 1)) < 48 Or Asc(Right(Left(s, i), 1)) > 57) Or i > Len(s)
If i <> Len(s) + 1 Then Exit Function
Else
Exit Function
End If
Else
Exit Function
End If
Set w = Worksheets("Articles")
For i = 3 To w.Cells(Rows.Count, 1).End(xlUp).Row
If UCase(Left(w.Cells(i, 1), Len(txt))) = txt Then
If IsNumeric(Right(w.Cells(i, 1), Len(w.Cells(i, 1)) - Len(txt))) Then
If Val(Right(w.Cells(i, 1), Len(w.Cells(i, 1)) - Len(txt))) >= Val(nmb) Then
Wbr = w.Cells(i, 2)
Exit Function
End If
End If
End If
Next i
End Function