ブック内シート存在チェック 

指定されたブック内に指定されたシートがあるかどうかを返す version1.0

シートは名前と番号どちらでも指定できる。

'指定されたブックに指定されたシートが存在するかどうかを返す。存在する:TRUE、存在しない:FALSE
Function isExistCheckToSheet(wb As Workbook, checkSheet As Variant)
    isExistCheckToSheet = False
    For Each ws In wb.Worksheets
        If Not IsNumeric(checkSheet) Then
            If ws.Name = checkSheet Then
                isExistCheckToSheet = True
            End If
        End If
    Next
    
    If IsNumeric(checkSheet) Then
        '指定値が数値の場合、全シート数より小さい数字かどうかが存在チェックとなる
        isExistCheckToSheet = checkSheet <= wb.Worksheets.count
    End If
End Function


コメント