vba - 用于检查工作表是否存在的函数，在 If 语句中

Question

我有一个检查工作表是否存在的功能。我无法让它在 if 语句中工作。

我宁愿不在保存结果的 if 语句之前创建变量。我应该将功能更改为子功能吗？

sub tester()
    If ShExist("Equity") = True then call differentfunction
end sub

Function ShExist(name As String)
    Dim WorksheetExists
    WorksheetExists = Evaluate("ISREF('" & (name) & "'!A1)")
End Function

Answer 1

您的功能不完整或不正确。以下将起作用:

Function ShExist(name As String)
    ShExist = Evaluate("ISREF('" & (name) & "'!A1)")
End Function