Thread
:
VBA and insert question
View Single Post
#
4
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
VBA and insert question
Sub insert4rows()
Sheets("sheet1").Range("BL1").Resize(4).EntireRow. Insert
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"teepee" wrote in message
...
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
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett