Deb,

Try this macro. ALT+F11 to open VB editor. Right click 'ThisWorkbook' and
insert module and paste the code in on the right . Change the sheet name to
your sheet and run the code

Sub insert_rows()
Dim ws As Worksheet, x as long
Set ws = Sheets("Sheet3")
lastrow = ws.Cells(Cells.Rows.Count, "A").End(xlUp).Row
For x = lastrow To 2 Step -1
ws.Rows(x).EntireRow.Insert
Next
End Sub


Mike

"Deb" wrote:

Rather than using the control button to select every other row, which can be
very time consuming when you have more than 100 rows, I am trying to figure
out how to auto-insert blank rows between pre-populated rows of information.