Thank you GS. I had help he
http://www.vbaexpress.com/forum/show...ing-in-between
and it works perfectly now. Thanks again for your help.

If you want to run *InsertBlankRows* from a custom menu you can use
this version...

Sub AddMoreRows()
InsertBlankRows CommandBars.ActionControl.Tag
End Sub

...and add the following menu items to the Cells (right-click) popup:


Sub AddToShortcut()
With CommandBars("Cell")
.Controls(1).BeginGroup = True
With .Controls.Add(Type:=msoControlButton, Befo=1)
.Caption = "Insert rows below here": .OnAction = "AddMoreRows"
.Tag = "Below": .Style = 1
End With

With .Controls.Add(Type:=msoControlButton, Befo=1)
.Caption = "Insert rows above here": .OnAction = "AddMoreRows"
.Tag = "Above": .Style = 1
End With
End With
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion