Dim ws as worksheetDim wb as workbook SN = "シート名"BN = "ブック名"Bpath = "ブックのPath"'マクロ実行ブックに目的のシートがあれば消すFor Each ws In ThisWorkbook.Worksheets If ws.Name = SN Then ws.DeleteNext ws'目的のブックを開いているか判…