Добавил в стандартное контекстное меню Excel свое подменю.

в microsoft excel objects (Лист2(ТРАФАРЕТ))
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
Run "Module1.Add_Menu", Target
End Sub

в Modules
Sub Add_Menu(ByVal Target As Excel.Range)
If checkTbl Then
If checkTbl Then
With Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup, temporary:=True)
.BeginGroup = True
.Caption = "Сводной отчетности команды"
.Tag = "onSvod"
End With
Set mnuSvd = Application.CommandBars.FindControl(Type:=msoControlPopup, Tag:="onSvod")
Set mnuSvdDel = mnuSvd.Control.CommandBar
With mnuSvdDel.Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "Строку текущую удалить"
.OnAction = BuildProcArgString("DeleteString")
.Tag = "mnuSvdDel_Str"
.FaceId = 276 '1786
End With
End If
End Sub

Sub DeleteString()
Rows(ActiveCell.Row).Delete
End Sub

не работает.
подскажите, что не так?
если в Sub DeleteString() добавить всяки MsgBox - то они выходят, но почему то два раза.
строку удалял уже всякими способами..
и :
Worksheets("ТРАФАРЕТ").Rows(numRowIns).Delete
и
Dim rw As Range
For Each rw In Worksheets(1).Cells(ActiveCell.Row, 1).CurrentRegion.Rows
rw.Delete
Next

и еще кучу вариантов.
никак не хочет удалять текущую строчку.