add an extra row

[Guest]

I have an excel sheet that I want to add an empty row after each row. It
should be like one with data and one empty row. How to accomplish this?

 

[Guest]

Hi,

Try the following:
'--------------------------------------------------------
Sub test()
InsertSpaceRow ActiveSheet, 3, 10
End Sub

'takes a sheet , a start row number and an end row number
Sub InsertSpaceRow(Wsh As Worksheet, rowStart As Long, rowEnd As Long)
Dim i As Long

Application.ScreenUpdating = False
For i = rowEnd To rowStart Step -1
Wsh.Range(i & ":" & i).EntireRow.Insert
Next
End Sub
'------------------------------------------------------------