工作表是否存在

Function ExistSheet(sheetName As String) As Boolean
    Dim sh As Worksheet
    On Error GoTo Err_Handle
    Set sh = Worksheets(sheetName)
    ExistSheet = IIf(sh Is Nothing, False, True)
    Set sh = Nothing
    Exit Function
Err_Handle:
    ExistSheet = False
End Function