Yet another macro question
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 |
Yet another macro question
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 |
Yet another macro question
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 |
Yet another macro question
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 |
All times are GMT +1. The time now is 06:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com