工作表是否已存在函数

1 Function SheetIsExist(shtName) As Boolean
2     Dim ws As Worksheet
3     On Error Resume Next
4     Set ws = Worksheets("" & shtName)
5     SheetIsExist = (Err = 0)
6     Err.Clear: On Error GoTo 0
7 End Function