Error With Vlookup Formula?

[Ark68]

Is anyone able to provide me a set of educated eyes to reveal the problem in the highlighted code below that is chirping an "Application-deined or object-defined error".

            With ws_thold 'the list
                '.Cells(d_th, 28) = posnum
                .Cells(d_th, 29) = x
                .Cells(d_th, 30) = pnum
                .Cells(d_ht, 31) = "=VLookup(""" & pnum & """,'D:\WSOP 2020\[permit_data.xlsx]Permit_Data'!A:S,5,false)" 'function(5)
                .Cells(d_ht, 32) = "=VLookup(""" & pnum & """,'D:\WSOP 2020\[permit_data.xlsx]Permit_Data'!A:S,12,false)" 'base dist(12)
                .Cells(d_ht, 33) = "=VLookup(""" & pnum & """,'D:\WSOP 2020\[permit_data.xlsx]Permit_Data'!A:S,19,false)" 'pitch dist(19)
                .Cells(d_th, 26) = bkg_st
                .Cells(d_th, 27) = bkg_et
                d_th = d_th + 1
            End With

pnum = R2685 and is found in closed workbook permit_data.xlsx, worksheet Permit data, cell A10. The value in F10 is "Hockey"

 

[offthelip]

The easiest way of trying to find errors when you are writing equations to the worksheet is to remove the equals sign from the start of the string you are writing to the cell, this means it just writes a string not an equation. Then run the macro, then go to the cell and add the equals sign back in, excel will then tell you wherethe error is.

 

[Ark68]

Thank you offthelip for that suggestion. It helped me realize the issue wasn't in the formula, it was in the destination.