工作表是否已存在函数

Function SheetIsExist(shtName) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Worksheets("" & shtName)
    SheetIsExist = (Err = 0)
    Err.Clear: On Error GoTo 0
End Function