AutoFill Formula with code
Hi Dave,
Hi Dave,
I think I'd disable the events, so that the worksheet change doesn't fire
itself
I agree! I altered Dave's autofill syntax and looked no further!
Sloppy, but fortunately you picked it up.
Thank you!
---
Regards,
Norman
"Dave Peterson" wrote in message
...
I think I'd disable the events, so that the worksheet change doesn't fire
itself:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LRow As Long
If Target.Column = 3 Then
LRow = Cells(Rows.Count, 3).End(xlUp).Row
application.enableevents = false
Range("G2").AutoFill Destination:=Range("G2:G" & LRow)
Range("I2").AutoFill Destination:=Range("I2:I" & LRow)
Range("J2").AutoFill Destination:=Range("J2:J" & LRow)
application.enableevents = true
End If
End Sub
|