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
'------------------------------------------------------------
--
Regards,
Sébastien


"TS" wrote:

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?
--
TS