This is what I get for trying this on my own. I just want a macro that will
insert 2 blank rows at the current cursor position.

Sub Insert2Rows()
'
' qrow = ActiveCell.Row
Rows(qrow & ":" & grow + 1).Selection.Insert Shift:=xlDown
End Sub

Any ideas?

Thanks!

Amy

This should be close...

Sub Insert2Rows()
ActiveCell.Resize(2, 1).EntireRow.Insert
End Sub
--
HTH...

Jim Thomlinson


"cvgairport" wrote:

This is what I get for trying this on my own. I just want a macro that will
insert 2 blank rows at the current cursor position.

Sub Insert2Rows()
'
' qrow = ActiveCell.Row
Rows(qrow & ":" & grow + 1).Selection.Insert Shift:=xlDown
End Sub

Any ideas?

Thanks!

Amy

Hi,

Maybe this

Sub Insert2Rows()
'
qrow = ActiveCell.Row

Rows(qrow).Resize(2).Insert

End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"cvgairport" wrote:

This is what I get for trying this on my own. I just want a macro that will
insert 2 blank rows at the current cursor position.

Sub Insert2Rows()
'
' qrow = ActiveCell.Row
Rows(qrow & ":" & grow + 1).Selection.Insert Shift:=xlDown
End Sub

Any ideas?

Thanks!

Amy

As usual, you guys rock!

"Jim Thomlinson" wrote:

This should be close...

Sub Insert2Rows()
ActiveCell.Resize(2, 1).EntireRow.Insert
End Sub
--
HTH...

Jim Thomlinson


"cvgairport" wrote:

This is what I get for trying this on my own. I just want a macro that will
insert 2 blank rows at the current cursor position.

Sub Insert2Rows()
'
' qrow = ActiveCell.Row
Rows(qrow & ":" & grow + 1).Selection.Insert Shift:=xlDown
End Sub

Any ideas?

Thanks!

Amy