シート名の確認処理

'シート名チェック処理
Function checkSheetName(sheet_name As String) As Boolean
    Dim i As Integer
    Dim bln_return As Boolean
    bln_return = False
    For i = 1 To ThisWorkbook.Worksheets.Count
        If ThisWorkbook.Worksheets(i).Name = sheet_name Then bln_return = True
        If bln_return = True Then Exit For
    Next
    checkSheetName = bln_return
End Function

'シート名の重複チェック。
If checkSheetName("Sheet1") Then
    MsgBox "同じシート名があります。"
    Exit Sub
End If

'もっとスマートに書けるようになりたい