Auto fill formulas

Hi Leith,

Thanks so much. Works great. I almost had it right.

Thanks again
Dave

Originally Posted by Leith Ross

Hello Desert Piranha,

When using AutoFill the destination range must include the source range. You code should look like this...

If Target.Column = 2 Then
        LRow = Cells(Rows.Count, 2).End(xlUp).Row
        Range("BF5").AutoFill Destination:=Range("BF5:BF" & LRow)
        Range("BG5").AutoFill Destination:=Range("BG5:BG" & LRow)
        Range("BH5").AutoFill Destination:=Range("BH5:BH" & LRow)
        Range("BI5").AutoFill Destination:=Range("BI5:BI" & LRow)
End If

Sincerely,
Leith Ross