Code Assistance

[jstevens]

I am having a challenge assigning a formula to a cell via VBA. The challenge is that "E16" is blank and is causing the issue. I'm being returned a run-time error 1004. I know the formula works because I can enter it in preceeded with an apostrophe, remove the appostrophe and get this message. After selecting "yes" it works.

untitled.png

The line of code is as follows:
Sheets("T&E Input").Range("F16:F16").Formula = "=IF(ISTEXT(E16),VLOOKUP(E16,R_TE_Table,2,FALSE),"")"

Thanks for your suggestions,
John

[HansV]

You must double the quotes within the formula:

Sheets("T&E Input").Range("F16:F16").Formula = "=IF(ISTEXT(E16),VLOOKUP(E16,R_TE_Table,2,FALSE),"""")"

[jstevens]

Hans,

It worked perfectly.

Thanks,
John