Thread: how to automatically insert blank lines in between non-blank lines
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Chip Pearson Chip Pearson is offline
external usenet poster
  
Posts: 7,247
Default 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.





Reply With QuoteReply With Quote