シートの存在確認

2019年9月18日2019年9月26日

関数化すると無い場合の対応が容易になります。

Function is存在シート(wb As Workbook, シート名 As String) As Boolean
    Dim ws As Worksheet
    
    On Error Resume Next
    Set ws = wb.Worksheets(シート名)
    
    If (ws Is Nothing) Then
        is存在シート = False
    Else
        is存在シート = True
        Set ws = Nothing
    End If
End Function