How can I quickly insert 3 blank rows between a list of many items? For
example, I have the following list of items in cells a1 thru a5 and I want to
quickly insert 3 blank rows between each item, without having to do each one
at a time:

John
James
Joe
Nancy
Steve

Thanks for the help.

Sub insert3rows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
Rows(i).Resize(3).Insert
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"JB" wrote in message
...
How can I quickly insert 3 blank rows between a list of many items? For
example, I have the following list of items in cells a1 thru a5 and I want
to
quickly insert 3 blank rows between each item, without having to do each
one
at a time:

John
James
Joe
Nancy
Steve

Thanks for the help.

Yikes! I'm a bit of a novice here. What is this you just wrote? Is it a
macro?

"Don Guillett" wrote:

Sub insert3rows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
Rows(i).Resize(3).Insert
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"JB" wrote in message
...
How can I quickly insert 3 blank rows between a list of many items? For
example, I have the following list of items in cells a1 thru a5 and I want
to
quickly insert 3 blank rows between each item, without having to do each
one
at a time:

John
James
Joe
Nancy
Steve

Thanks for the help.

Disregard my last post. I tried this as a Macro and it worked perfectly.
Thanks Mr. Guillett!

"JB" wrote:

Yikes! I'm a bit of a novice here. What is this you just wrote? Is it a
macro?

"Don Guillett" wrote:

Sub insert3rows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
Rows(i).Resize(3).Insert
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"JB" wrote in message
...
How can I quickly insert 3 blank rows between a list of many items? For
example, I have the following list of items in cells a1 thru a5 and I want
to
quickly insert 3 blank rows between each item, without having to do each
one
at a time:

John
James
Joe
Nancy
Steve

Thanks for the help.

Glad to help
If you're new to macros, you may want to read David McRitchie's intro
at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"JB" wrote in message
...
Disregard my last post. I tried this as a Macro and it worked perfectly.
Thanks Mr. Guillett!

"JB" wrote:

Yikes! I'm a bit of a novice here. What is this you just wrote? Is it
a
macro?

"Don Guillett" wrote:

Sub insert3rows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
Rows(i).Resize(3).Insert
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"JB" wrote in message
...
How can I quickly insert 3 blank rows between a list of many items?
For
example, I have the following list of items in cells a1 thru a5 and I
want
to
quickly insert 3 blank rows between each item, without having to do
each
one
at a time:

John
James
Joe
Nancy
Steve

Thanks for the help.

Thanks Don. I'll do that. Here's another quick question: Every time I run
my new Macro you gave me, the Macro records what it's doing and changes
itself so that when I go to run it again, it adds 6 blank rows. How do I get
it to stop changing itself?

"Don Guillett" wrote:

Glad to help
If you're new to macros, you may want to read David McRitchie's intro
at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"JB" wrote in message
...
Disregard my last post. I tried this as a Macro and it worked perfectly.
Thanks Mr. Guillett!

"JB" wrote:

Yikes! I'm a bit of a novice here. What is this you just wrote? Is it
a
macro?

"Don Guillett" wrote:

Sub insert3rows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
Rows(i).Resize(3).Insert
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"JB" wrote in message
...
How can I quickly insert 3 blank rows between a list of many items?
For
example, I have the following list of items in cells a1 thru a5 and I
want
to
quickly insert 3 blank rows between each item, without having to do
each
one
at a time:

John
James
Joe
Nancy
Steve

Thanks for the help.