用户自定义函数 – 此公式所在工作表的名称

这很简单，但我只是忽略了必要的代码。 我想创build一个用户定义的函数，它返回函数存在的表的名称。

我目前有什么：

public Function SHEETNAME(X as integer) as String SHEETNAME = ActiveWorkbook.Sheets(X).Name End Function 

我希望它可以在任何表单上使用，并返回表单的名称，而不是采用数字参数。 这甚至有可能吗？

Answer 1

 Function WhereAmI() WhereAmI = Application.Caller.Parent.Name End Function 

Answer 2

不需要UDF。 尝试：

 =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255)