INSERT ROW

Via an "Input Box" is asked : "after which
row,you will insert a row?"
When choosen for example 25,then the macro will automaticly select row 26 as an empty row.
Have somebody such a macro?
Thanks.

On 2002-03-12 10:25, Anonymous wrote:
Via an "Input Box" is asked : "after which
row,you will insert a row?"
When choosen for example 25,then the macro will automaticly select row 26 as an empty row.
Have somebody such a macro?
Thanks.

You could try something like this:

Sub InsertRow()

On Error Resume Next

    Dim RowNum As Long

    RowNum = Application.InputBox(Prompt:="Enter Row Number", Type:=1)
    
    Rows(RowNum).EntireRow.Insert
    
End Sub

Hope this helps,

Russell

[Russell Hauf]

Foiled again! The last post was from me.

Why do I do this (posting this message saying that the last post was from me), you may ask? Because I like to search on my name to see the replies to my posts.

-rh

On 2002-03-12 13:58, Anonymous wrote:

You could try something like this:

Sub InsertRow()

On Error Resume Next

    Dim RowNum As Long

    RowNum = Application.InputBox(Prompt:="Enter Row Number", Type:=1)
    
    Rows(RowNum).EntireRow.Insert
    
End Sub

Hope this helps,

Russell

Thanks for answer,but the macro does not insert an entire row.Can you complete your macro please?
Thanks.
Can you complete your

[Barrie Davidson]

On 2002-03-12 14:04, Russell Hauf wrote:
Foiled again! The last post was from me.

Why do I do this (posting this message saying that the last post was from me), you may ask? Because I like to search on my name to see the replies to my posts.

-rh

I don't know Russell....it appears this new board is out to get you!

[/quote]
Thanks for answer,but the macro does not insert an entire row.Can you complete your macro please?
Thanks.
[/quote]


It works when I run it.

(I am not Russell Hauf)