how to automatically insert blank lines in between non-blank lines
 

as subject, thanks.

how to automatically insert blank lines in between non-blank lines
 

Try something like the following. Change the StartRow and EndRow to the
appropriate values.

Sub AAA()
Dim Ndx As Long
Dim StartRow As Long
Dim EndRow As Long
StartRow = 1 '<<< CHANGE
EndRow = 10 '<<< CHANGE
For Ndx = EndRow To StartRow Step -1
Rows(Ndx).Insert
Next Ndx
End Sub


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


wrote in message
...
as subject, thanks.

how to automatically insert blank lines in between non-blank lines
 

lots of thanks.


"Chip Pearson" ¼¶¼g©ó¶l¥ó·s»D
...
Try something like the following. Change the StartRow and EndRow to the
appropriate values.

Sub AAA()
Dim Ndx As Long
Dim StartRow As Long
Dim EndRow As Long
StartRow = 1 '<<< CHANGE
EndRow = 10 '<<< CHANGE
For Ndx = EndRow To StartRow Step -1
Rows(Ndx).Insert
Next Ndx
End Sub


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


wrote in message
...
as subject, thanks.