VBA and insert question
Hi
Expand the range to be 4 rows:
With Sheets("Sheet1").range("BL1:BX4")
....
Regards,
Per
On 2 Jan., 01:16, "teepee" wrote:
Hello
I hve some code that inserts 4 lines into a spreadsheet one at a time
Is there a line of code that would permit me to put in 4 lines in one go?
Many thanks
With Sheets("sheet1").Range("BL1:BX1")
* * .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
* * End With
* * With Sheets("sheet1").Range("BL1:BX1")
* * .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
* * End With
* * With Sheets("sheet1").Range("BL1:BX1")
* * .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
* * End With
* * With Sheets("sheet1P").Range("BL1:BX1")
* * .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
* * End With
|