＃名称？ 重命名所有“ThisWorksheet”模块后出现错误

我有许多工作表和大量数据的Excel工作簿。 我的一个VBAfunction如下。 它一直工作得很好。

Function TextResult(Name As String) As String Select Case Name Case Is = "Text1" Name = "Result1" Case Is = "Text2" Name = "Result2" Case Is = "Text3" Name = "Result" End Select End Function 

然后我添加了一个重命名我的模块的Sub：

 Sub Whats_In_A_Name() ThisWorkbook.VBProject.VBComponents("Module1").name = "TextResult" ThisWorkbook.VBProject.VBComponents("Module2").name = "Name2" End Sub 

这一个给出了一个错误，但把它们全部重新命名，包括它本身。

但是现在我得到了#NAME？ 在使用这些模块的所有单元格上出现错误，所有单元格的function都是如此。 我不知道如何纠正这一点。 任何人的想法？

Answer 1

如上：

为您的UDF使用一个不同的名称，而不是包含该函数的模块的确切名称。