VBA 检查表名称是否存在

Function ExistSheetName(name As String)
    Dim sht As Worksheet
    For Each sht In Worksheets
        If sht.name = name Then
            ExistSheetName = True
            Exit Function
        End If
    Next
    ExistSheetName = False
End Function