No need to use cell.
    Dim x, s$
    s = "PRO123456"
    x=executeexcel4macro("match(""" & s & """,'Q:\KUNDER\PROJEKTER\HPG\[HPG_DB.xlsx]Template_0'!c1:c1,0)")
    msgbox iif(iserror(x),"not foound",x)