Where am I going wrong?

Help - trying to Insert Row using CTRL + L (Need to unhide the inserteed row
if that makes sense???)

Sub NewLine()
'
' NewLine Macro
' Macro recorded 31/03/2006 by XXX
'
' Keyboard Shortcut: Ctrl+l
'
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Rows("16:16").Select
Application.CutCopyMode = False
Selection.Copy
Range("A22").Select
Selection.End(xlDown).Select
Selection.Insert Shift:=x2Down
Selection.EntireRow.Hidden = False

End Sub

Sarah,
try:
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown

Ozgur

"Sarah_Lecturer" wrote:

> Help - trying to Insert Row using CTRL + L (Need to unhide the inserteed row
> if that makes sense???)
>
> Sub NewLine()
> '
> ' NewLine Macro
> ' Macro recorded 31/03/2006 by XXX
> '
> ' Keyboard Shortcut: Ctrl+l
> '
> ActiveWindow.ScrollRow = 21
> ActiveWindow.ScrollRow = 20
> ActiveWindow.ScrollRow = 19
> ActiveWindow.ScrollRow = 18
> ActiveWindow.ScrollRow = 17
> ActiveWindow.ScrollRow = 16
> ActiveWindow.ScrollRow = 15
> ActiveWindow.ScrollRow = 14
> ActiveWindow.ScrollRow = 13
> ActiveWindow.ScrollRow = 12
> ActiveWindow.ScrollRow = 11
> ActiveWindow.ScrollRow = 10
> ActiveWindow.ScrollRow = 9
> ActiveWindow.ScrollRow = 8
> ActiveWindow.ScrollRow = 7
> ActiveWindow.ScrollRow = 6
> ActiveWindow.ScrollRow = 5
> ActiveWindow.ScrollRow = 4
> ActiveWindow.ScrollRow = 3
> ActiveWindow.ScrollRow = 2
> ActiveWindow.ScrollRow = 1
> Rows("16:16").Select
> Application.CutCopyMode = False
> Selection.Copy
> Range("A22").Select
> Selection.End(xlDown).Select
> Selection.Insert Shift:=x2Down
> Selection.EntireRow.Hidden = False
>
> End Sub
>

You don't need to Select the row.

ActiveCell.EntireRow.Insert shift:=xlShiftDown

It is very rare that you need to Select anything in VBA. Your
code will be considerably faster if you don't select an object,
but instead operate on the object itself.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Ozgur Pars" <[email protected]> wrote in
message
news:[email protected]...
> Sarah,
> try:
> ActiveCell.EntireRow.Select
> Selection.Insert Shift:=xlDown
>
> Ozgur
>
> "Sarah_Lecturer" wrote:
>
>> Help - trying to Insert Row using CTRL + L (Need to unhide the
>> inserteed row
>> if that makes sense???)
>>
>> Sub NewLine()
>> '
>> ' NewLine Macro
>> ' Macro recorded 31/03/2006 by XXX
>> '
>> ' Keyboard Shortcut: Ctrl+l
>> '
>> ActiveWindow.ScrollRow = 21
>> ActiveWindow.ScrollRow = 20
>> ActiveWindow.ScrollRow = 19
>> ActiveWindow.ScrollRow = 18
>> ActiveWindow.ScrollRow = 17
>> ActiveWindow.ScrollRow = 16
>> ActiveWindow.ScrollRow = 15
>> ActiveWindow.ScrollRow = 14
>> ActiveWindow.ScrollRow = 13
>> ActiveWindow.ScrollRow = 12
>> ActiveWindow.ScrollRow = 11
>> ActiveWindow.ScrollRow = 10
>> ActiveWindow.ScrollRow = 9
>> ActiveWindow.ScrollRow = 8
>> ActiveWindow.ScrollRow = 7
>> ActiveWindow.ScrollRow = 6
>> ActiveWindow.ScrollRow = 5
>> ActiveWindow.ScrollRow = 4
>> ActiveWindow.ScrollRow = 3
>> ActiveWindow.ScrollRow = 2
>> ActiveWindow.ScrollRow = 1
>> Rows("16:16").Select
>> Application.CutCopyMode = False
>> Selection.Copy
>> Range("A22").Select
>> Selection.End(xlDown).Select
>> Selection.Insert Shift:=x2Down
>> Selection.EntireRow.Hidden = False
>>
>> End Sub
>>