I have a spread sheet full of data. I need to incert a larger sized, blank
row in every other space? Macro possible. I have this macro:

Sub test()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
Dim rng As Range
numRows = 1
Set rng = ActiveSheet.UsedRange
For R = rng.Rows.count To 1 Step -1
rng.rows(R + 1). Resize(numrows).EntireRow.Insert
Next R
Application.ScreenUpdating = True

This will add the row, I just need it to be a larger size.

Thanks

Jim

Selection.RowHeight = 25.5 (or whatever size you want)

"Jimv" wrote:

I have a spread sheet full of data. I need to incert a larger sized, blank
row in every other space? Macro possible. I have this macro:

Sub test()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
Dim rng As Range
numRows = 1
Set rng = ActiveSheet.UsedRange
For R = rng.Rows.count To 1 Step -1
rng.rows(R + 1). Resize(numrows).EntireRow.Insert
Next R
Application.ScreenUpdating = True

This will add the row, I just need it to be a larger size.

Thanks

Jim

Bigwheel,

Where do I insert this to make every other row larger?

Thanks

"bigwheel" wrote:

Selection.RowHeight = 25.5 (or whatever size you want)

"Jimv" wrote:

I have a spread sheet full of data. I need to incert a larger sized, blank
row in every other space? Macro possible. I have this macro:

Sub test()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
Dim rng As Range
numRows = 1
Set rng = ActiveSheet.UsedRange
For R = rng.Rows.count To 1 Step -1
rng.rows(R + 1). Resize(numrows).EntireRow.Insert
Next R
Application.ScreenUpdating = True

This will add the row, I just need it to be a larger size.

Thanks

Jim