Help tidy up this VBA Code please

Tinhare · Apr 19th, 2002, 07:50 AM

Rows(RowOffSet2 - 1).Select
FillRows = CStr(RowOffSet2 - 1) & ":" & CStr(RowOffSet2 + 2)
Selection.AutoFill Destination:=Rows(FillRows), Type:=xlFillDefault

Any thoughts would be appreciated.

Thanks,
Alan.

Damon Ostrander · Apr 19th, 2002, 10:08 AM

Hi Alan,

I believe the following should accomplish the same thing more efficiently:

With Rows(RowOffSet2-1)
.AutoFill Destination:=Range(.Cells,Rows(RowOffSet2+2)), Type:=xlFillDefault
End With

Tinhare · Apr 19th, 2002, 10:36 AM

yes, oh yes, much better. Thanks for that.

Apr 19th, 2002, 10:08 AM	#2
Damon Ostrander MrExcel MVP Join Date: Feb 2002 Location: Denver, Colorado USA Posts: 4,014	Hi Alan, I believe the following should accomplish the same thing more efficiently: With Rows(RowOffSet2-1) .AutoFill Destination:=Range(.Cells,Rows(RowOffSet2+2)), Type:=xlFillDefault End With __________________ Keep Excelling. Damon VBAexpert Excel Consulting (My other life: http://damonostrander.com )

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 19th, 2002, 07:50 AM	#1
Tinhare New Member Join Date: Apr 2002 Location: England Posts: 44	Rows(RowOffSet2 - 1).Select FillRows = CStr(RowOffSet2 - 1) & ":" & CStr(RowOffSet2 + 2) Selection.AutoFill Destination:=Rows(FillRows), Type:=xlFillDefault Any thoughts would be appreciated. Thanks, Alan.

Apr 19th, 2002, 10:36 AM	#3
Tinhare New Member Join Date: Apr 2002 Location: England Posts: 44	yes, oh yes, much better. Thanks for that.