Insert formula using VBA

Question

The below vba code fails to insert the formula into the cell. Cell E3 contains 25,208.70 - 15,685.60. Expected outcome is 25,208.70. I do get the expected answer if the formula is inserted into the cell BJ3 but fails to insert the formula using VBA.

Please help!

Range("BJ3").Formula = "=VALUE(TRIM(LEFT(E3, FIND(" - ", E3) - 1)))"

Answer 1

Please, try:

Range("BJ3").Formula = "=VALUE(TRIM(LEFT(E3, FIND("" - "", E3) - 1)))"