Sub test2() Dim s As String s = "PRO123456" ' Cells(1).Formula = "=Iferror(match(""" & s & """,'Q:\KUNDER\PROJEKTER\HPG\[HPG_DB.xlsx]Template_0'!$A:$A,0),""not found"")" End Sub
Sub test2() Dim s As String s = "PRO123456" ' Cells(1).Formula = "=Iferror(match(""" & s & """,'Q:\KUNDER\PROJEKTER\HPG\[HPG_DB.xlsx]Template_0'!$A:$A,0),""not found"")" End Sub
Last edited by Aussiebear; 02-08-2025 at 09:02 AM.