macros1

Function Primer3(number_transport As String) Dim n As Long n = WorksheetFunction.Match(number_transport, wb_018.Range("L:L"), 0) Primer3 = n End Function