宏列表中没有这个宏

cjh2705

我的主程序调用一个过程，调用代码就一句
Call 插入工作表("班级")

被调用的过程代码如下，就是先判断我要插入的工作表原来有没有，有则删除，没有则新建。
Public Sub 插入工作表(wsname)

Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = wsname Then
Application.DisplayAlerts = False
ws.Delete
End If
Next
Set ws = Worksheets.Add
ws.Name = wsname
End Sub

一开始运动的好好的，试了好多次，都很OK，后来不知道怎么了，这个“插入工作表”在宏列表中不见了，主程序运动到call就停了，如图提示。
如果是在工作表中调用，则如图

请大侠帮忙。谢谢！

liulang0808

那么工作簿中还有没有这个宏？建议上传附件说明需求吧