つらつら Excel VBA

私の備忘録です。

Excel VBA シート名の重複確認

'シート名チェック処理
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