Hi,

I often use the row right click menu to add a row. I find that when I
have something on my clipboard the "Insert" command is replaced with a
"Insert copied cells" I find this a pain as I have to press escape to
cancel the copy command, insert the row, go back to where the source is
and copy it again.

I was hoping to be able to add a menu item to the row right click menu
to add an entire row, that way when I have something on my clipboard I
can at least insert the row without having to cancel the command and
reselect to insert.

I have written the following coder to add an "Insert entire row to the
row right click menu:
Option Explicit
Public RtClkRowMenu As CommandBarButton
Sub DDeleteSKBRightClickRowMenuControl()
   Dim i As Long
   Dim caption_names As Variant
   caption_names = Array("Insert Entire Row", "caption 2", "caption
3")
   With Application.CommandBars("Row")
       For i = LBound(caption_names) To UBound(caption_names)
           On Error Resume Next
           .Controls(caption_names(i)).Delete
           On Error GoTo 0
       Next i
   End With
End Sub

And the following code to insert an entire row:

Sub IInsertEntireRow()
   Dim strStartCell As String
   strStartCell = ActiveCell.Address
   ActiveCell.Rows("1:1").EntireRow.Select
   Selection.Insert Shift:=xlDown
   Range(strStartCell).Select 'Leave cursor in cell that was initially
selected
End Sub

The problem I am having is that when I have something on my clipboard
and use my custom right click menu item the contents of the clipboard
are pasted into every cell in the row that I have just inserted.

Is there a way to get a blank row inserted without the contents of the
clipboard being pasted into every cell? Ideally I would like to keep
the clipboard contents on the clipboard so that they can be pasted in
after the row has been inserted.

Any assistance/explanation will be appreciated.

Regards.

Sean