insert a function in a cell with a macro

[thomas]

Im trying and trying but it wont work.

I want to give a cell a function and want to do this with
the help of a macro. But everytime VB gives an error.

I now have this lines in VB:

Sheets("01").Select
Columns("A:A").Select
Range("A33").Select
ActiveCell.FormulaR1C1 =

"HERE BEGINS THE FUNCTION!!"
"=IF(ISERROR(VLOOKUP('I:\300\390\391\numbers\2003
halfjaar\Cijfers\ExportenMonarch\[exportmonarch_bankiersDeb
etHJ2003.xls]Bankiers_debet'!A1,'I:\300\390\391
\Jaarrekening\2002
jaar\Cijfers\ExportenMonarch\[exportmonarch_bankiersDebet20
02.xls]Bankiers_debet'!$A$1:$A$50,1,FALSE)),'I:\300\390\391
\Jaarrekening\2003
halfjaar\Cijfers\ExportenMonarch\[exportmonarch_bankiersDeb
etHJ2003.xls]Bankiers_debet'!$A1,0)"

The error is "runtime error 1004"
"Application defined or object-defined error"

Is the function to long or something??
How can i solve this?

thanks
thomas

 

[Alan]

Try
Sheets("01").Range("A33").Formula = " = Your Formula"

 

[Don Guillett]

try
range("a33").formula="=yourformulahere"

 

[Earl Kiosterud]

Thomas,

I didn't really try to set up your conditions. Try it without .FormulaR1C1.

ActiveCell = "=IF(ISERROR(........

Failing that, put the various pieces into separate cells. If one fails,
you'll possibly have narrowed it down. If that works, put the IF formula
that refers to those cells.