I hope, this is the proper way how to answer the question with reply
email ". If not, I am sorry...

Try this:

Sub Insert_row()
ActiveCell.EntireRow.Insert Shift:=xlDown
End Sub

The code adds a new row above the row where is the active cell.

Bye

Grond

It looks like you started a new thread with your reply. This'll make it a
little harder (maybe impossible) for the original poster to see your response as
an answer to their question.

Since you used google to post, it looks like you didn't hit the reply
button--maybe you just started a new post????


Grond wrote:

I hope, this is the proper way how to answer the question with reply
email ". If not, I am sorry...

Try this:

Sub Insert_row()
ActiveCell.EntireRow.Insert Shift:=xlDown
End Sub

The code adds a new row above the row where is the active cell.

Bye

Grond

--

Dave Peterson

Fortunately, I sorted the messages by subject, so the two threads were right
together. But you're right, replying to the thread is the best way.

--Tom

"Dave Peterson" wrote in message
...
It looks like you started a new thread with your reply. This'll make it a
little harder (maybe impossible) for the original poster to see your
response as
an answer to their question.

Since you used google to post, it looks like you didn't hit the reply
button--maybe you just started a new post????


Grond wrote:

I hope, this is the proper way how to answer the question with reply
email ". If not, I am sorry...

Try this:

Sub Insert_row()
ActiveCell.EntireRow.Insert Shift:=xlDown
End Sub

The code adds a new row above the row where is the active cell.

Bye

Grond

--

Dave Peterson