EXCEL、VBA

【VBA】シートの存在チェック

 

シートの存在チェック

指定したシート名のシートが存在するかチェックする関数です。

引数　SheetName ：シート名（文字列）

戻り値　True：存在する / False：存在しない

Public Function checkExistsWorksheet(ByVal SheetName As String) As Boolean

    Dim ws As Worksheet
    For Each ws In Sheets
        If ws.Name = SheetName Then
            checkExistsWorksheet = True
            Exit Function
        End If
    Next
    
    ' 存在しない
    checkExistsWorksheet = False
    
End Function

 

実行例

Debug.Print checkExistsWorksheet("Sheet2")
' True

Debug.Print checkExistsWorksheet("Sheet3")
' False