At the moment I have a bunch of formulas along the top row of a sheet and I
wish to copy them down a predfined number of rows. At the moment I activate
the sheet and then select the rows I want to copy down with the row
containing the formulas at the top and the just use fill down.

It would be much cooler if I could accomplish this in the background as it
were without having to select the
sheet. Is there a way of effectively filling down the formula without having
to activate the sheet?

Any help much appreciated, kind regards, Mark

You do have to Activate the sheet for a FillDown. However, if you are on a
different sheet you don't have to see what happens. For example: you are on
Sheet1 but you want to FillDown the formulas on Sheet2, while displaying
Sheet1:

Sub test()
Application.ScreenUpdating = False
With Worksheets("sheet2")
..Activate
..Range("B2:L2").AutoFill Destination:=Range("B2:L29")
End With
Worksheets("sheet1").Activate
Application.ScreenUpdating = True
End Sub

Mike F
"Mark Stephens" wrote in message
...
At the moment I have a bunch of formulas along the top row of a sheet and
I wish to copy them down a predfined number of rows. At the moment I
activate
the sheet and then select the rows I want to copy down with the row
containing the formulas at the top and the just use fill down.

It would be much cooler if I could accomplish this in the background as it
were without having to select the
sheet. Is there a way of effectively filling down the formula without
having to activate the sheet?

Any help much appreciated, kind regards, Mark

Thanks for your help, kind regards, Mark

*** Sent via Developersdex http://www.developersdex.com ***

You might try this instead:

Sub test()
Worksheets("Sheet1").Activate
With Worksheets("sheet2")
..Range("B2:L29").FillDown
End With
End Sub

--
Regards,
Tom Ogilvy

"Mark Stephens" wrote in message
...


Thanks for your help, kind regards, Mark

*** Sent via Developersdex http://www.developersdex.com ***