>>28
ありがとうございました。
おかげでうまくいきました。

Dim WST As Worksheet
Dim xlAPP As Application

xlAPP.DisplayAlerts = False
For Each WST In Worksheets
If WST.Name = "Sheet2" Or _
WST.Name = "Sheet3" Then
WST.Delete
End If
Next
xlAPP.DisplayAlerts = False