FillDown Formula Run-Time error

[brundag5]

Hello,

I use the filldown feature in vba to enter formulas into my cell range. I'm trying to enter the following formula into my cell range but and getting an error. I don't see what the problem is. I'm hoping one of you can. Thanks in advance for your help.

Range("BS3") = "=IF(AND(BO3 > $BB$20;BO3 < $BB$21); BR3; "")": Range("BS3:BS" & LR).FillDown

 

[Fluff]

Try

Range("BS3:BS" & lr).Formula = "=IF(AND(BO3 > $BB$20;BO3 < $BB$21); BR3; """")"

 

[Joe4]

Assuming that LR is a valid value, you do not have to use FillDown. If you use R1C1 formula reference, you can assign the formula to the whole range in one step:

    Range("BS3:BS" & LR).FormulaR1C1 = "=IF(AND(RC[-4] > R20C54;RC[-4] < R21C54); RC[-1]; """")"

The formula may look complicated, but the good news is, you don't need to figure it out.
Let Excel do the work for you. Just turn on the Macro Recorder, enter the formula into a cell manually, stop the Recorder, and view the code it created.