[vba/excel] 指定された名前のワークシートが存在するかの確認

gistfile1.vb

'-------------------------------------------------------------------------------
'指定された名前のワークシートが存在するかの確認
'-------------------------------------------------------------------------------
'【引数】対象ブック、検索するシート名
'【戻り値】シートの存在の有無
'【備考】
Private Function HasSheet(wbTarget As Workbook, strSheetName As String) As Boolean
    Dim sheet As Worksheet
    Dim blnFlag As Boolean

    For Each sheet In wbTarget.Worksheets
        If sheet.Name = strSheetName Then
            blnFlag = True
            Exit For
        End If
    Next sheet
   
    HasSheet = blnFlag
End Function