|
指定シート以外のシートを削除したいと思っています
シートが 指定シート1 の1枚 の時 下記でいいのですが
シートが2枚 指定シート1 指定シート2 を残したいとき
If .Name <> "指定シート1" Or .Name <> "指定シート2" Then .Delete
では、Worksheet クラスの Delete メソッドが失敗しました
となってしまいます
どう修正すればいいでしょうか
よろしくお願いいたします
Sub 指定シート以外削除()
Dim I As Integer
Dim j As Integer
If MsgBox("操作画面以外のシートを削除します", vbOKCancel) = vbOK Then
'(OKボタンが押されたとき)
I = Worksheets.Count
Application.DisplayAlerts = False
For j = I To 1 Step -1
With Sheets(j)
If .Name <> "指定シート1" Then .Delete
End With
Next j
Application.DisplayAlerts = True
MsgBox "削除が完了しました"
Else
'(キャンセルボタンが押されたとき)
End If
End Sub
|
|