Charles,

the following macro should do what you want, although I
haven't actually tested it. Post back if you can't get it
to work.

Sub InsertLines()

Dim X as Integer
Dim LastRow as Integer

LastRow = Range("A65536").end(xlUp).Row
LastRow = LastRow + (LastRow Mod 7)

For X = LastRow to 7 Step -7
Rows(x).insert
Next X

End Sub

'Cheers, Pete.


-----Original Message-----
Hello:
I have an Excel problem I would really appreciate help
with. I have a very
long mailing list for a research project. The list
contains rows of names &
addresses. I need to divide the list into blocks or
parcels of seven names
(lines) each. How do I get Excel to insert a row after
every seventh line?
If I tried to do this manually it could take hours!
Thanks a bunch for your
help...

-Charles


.