Please Help - Formula Reset Won't Work

[throtmorton]

Howdy,

I can't get this formula reset to work. It works fine as a function, and I've tested to make sure the range is correct.

Can anyone tell me what I'm doing wrong?

Thanks!
Paul


Sub TestReset()
Range("TestRange").Formula = "=IF(OR(E$37=0,E$37=""),E267*E333,IF(OR(AND(E$37=90,$BM199<4),AND(E$37=60,$BM199<3),AND(E$37=30,$BM199<2)),0,IF(E$37=30,E266*E332,IF(E$37=60,E265*E331,E264*E330))))"
End Sub

 

[Michael M]

your missing a double quotation mark in the formula

Sub TestReset2()
Range("testrange").Formula = "=IF(OR(E$37=0,E$37=""""),E267*E333,IF(OR(AND(E$37=90,$BM199<4),AND(E$37=60,$BM199<3),AND(E$37=30,$BM199<2)),0,IF(E$37=30,E266*E332,IF(E$37=60,E265*E331,E264*E330))))"
End Sub

 

[throtmorton]

Michael,

Thanks! Works like a charm.

Didn't know I needed to double down on the quotation marks.

Regards,
Paul

 

[Michael M]

Yep, anytime you put a formula with quotation marks into VBA you'll need to double 'em.