If E6 contains the formula and you are referencing E5 as the lookup value
you can use the following formula for E6:

ActiveCell.FormulaR1C1 = _
"=IF(ISBLANK(VLOOKUP(R[-1]C,JobSheet,2,FALSE)),"""",(VLOOKUP(R[-1]C,JobSheet,2,FALSE)))"

Alan

wrote in message
ups.com...


On Jan 29, 1:27 pm, "Alan" wrote:
Hi Chad,

If you are referencing "" in a cell and inputting the formula with VBA
the
the "" needs to be """", thus

Range("E6").FormulaR1C1 =
"=IF(ISBLANK(VLOOKUP(RC[1,JobSheet,2,FALSE)),"""",(VLOOKUP(E5,JobSheet,2,F ALSE)))"

Alan


Thanks again Alan, I don't want to be a pest but the cell references
are showing up 'E5' as below;

=IF(ISBLANK(VLOOKUP('E5',JobSheet,2,FALSE)),"",(VL OOKUP('E5',JobSheet,
2,FALSE)))

The formula you recommended does get set without any errors, it just
changes the cell references. I'm sure I just need to add additional
characters to allow it as a cell.

Thanks

Chad