Insert Blnk rows

[Rob]

With data from AL1 to AL100, attempting to insert a blank
row (every other row) simply to ease the readability on
printout. Any help is greatly appreciated.

thanks

 

[Tom Ogilvy]

Easier would be to double the row height

Range("Al1:Al100").EntireRow.rowHeight = 24

 

[Chip Pearson]

Rob,

Try something like the following code.

Dim RowNdx As Long
Application.ScreenUpdating = False
For RowNdx = 100 To 2 Step -1
Rows(RowNdx).Insert
Next RowNdx
Application.ScreenUpdating = True


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Rob]

Thanks. Works very well, Unfortunately have various rows
of headers need to keep together. Can the insert every
other blank row macro be limeted to a selection of cells?
(ie. only insert every other blank rows betweem b6: am
100)?

Again. thanks so much!!

 

[Chip Pearson]

Rob,

In the code I provided, change the upper and lower limits of the
For loop to the rows you want to insert between. E.g.,

For RowNdx = 100 To 6 Step -1


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Tom Ogilvy]

Change the 2 to 6 in the code.

Are you going to ask how to delete blank rows.

 

[Rob]

Thanks

U DA MAN!!!!

-----Original Message-----
Rob,

In the code I provided, change the upper and lower limits of the
For loop to the rows you want to insert between. E.g.,

For RowNdx = 100 To 6 Step -1


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com






.