【シート存在確認】

ここを編集

'シート存在確認
Dim bIsSheetExist As Boolean
bIsSheetExist = False
For Each wSheet In ThisWorkbook.Worksheets
    If wSheet.Name = sTrgtSheetName Then
        bIsSheetExist = True
    Else
        'Do Nothing
    End If
Next wSheet
 

ここを編集