When you have embedded quotes in the formula, you must "double" them. The line
should read

.Formula = "=IF(ISBLANK(J7),"""",AD7)"


On Fri, 16 Jul 2004 12:56:00 -0700, "marta"
wrote:

Hello,
My macro contains the following formula:
With Worksheets("Entry Form").Range("K7")
.Formula = "=IF(ISBLANK(J7),"",AD7)"
End With
When i try to run it, it gives me a run-time error
(Application-defined or object-defined error).
What am i doing wrong?

Thanks for your help
Marta