Return Result of Formula iso Formula itself

[mucah!t]

Hi all,

I can't get this part to insert the result of the formula iso the formula itself.
I tried changing "FormulaR1C1" into "Value" but it still returns the formula.

Also tried ".Value = .Value", but that gives an error?

   With Sheets("CALCS")
      .Cells(Rows.Count, 4).End(xlUp).Offset(1).Value = "=IF(WERKBLAD!R[4]C[-2]=CALCS!RC[-1],TRUE,FALSE)"

   End With

any ideas?

 

[shg]

Maybe ...

    With Sheets("CALCS").Cells(Rows.Count, 4).End(xlUp).Offset(1)
        .FormulaR1C1 = "=WERKBLAD!R[4]C[-2]=CALCS!RC[-1]"
        .Value = .Value
    End With

 

[mucah!t]

Thanks shg!