请问这个EXCEL插入行程序有什么错误

Leening123

下述程序目的是生成右键菜单项目"插入行“，选择右键菜单“插入行”则运行“menuproc"程序，在目标单元格下方插入行，这个menuproc程序错误在那里，无法运行，谢谢！

Sub AddRightClickMenu()
    ' 单元格区域右键菜单
    With Application.CommandBars("cell")
        .Reset
        ' 添加控件
        With .Controls.Add(Type:=msoControlButton)
            .Caption = "插入行”              ' 分类，添加分隔线
            .OnAction = "MenuProc"          ' 指定处理过程
        End With
    End With
End Sub

Sub menuproc(ByVal Target As Range)
   If Target.Count = 1 Then
        Target(2).EntireRow.Insert
   End If
End Sub

liulang0808

Sub menuproc()

        activecell.offset(1).EntireRow.Insert
   
End Sub

Leening123

谢谢，C:\Users\Administrator\Desktop\53FB5606-462E-41CE-AA94-3B4C1DF18F6D运行程序出现如图提示，什么原因？

liulang0808

Leening123 发表于 2018-6-12 14:57
谢谢，运行程序出现如图提示，什么原因？

楼主的代码在模块中吗？
建议上传附件看看吧

Leening123

明白了，应该放在模块中。谢谢！