Dim i As Integer For i = 1 To Worksheets.Count If Worksheets(i).name = "シート名" Then 'シートが存在した場合、実行する事柄を記載 End If Next i