シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください！ Sub 不要

シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください！

Sub 不要シート削除()
Dim WS As Worksheet
Dim Target As String
Target = "利用表"
For Each WS In Worksheets
If InStr(WS.Name, Target) <> 1 Then
　　　　　WS.Activate
Application.DisplayAlerts = False
WS.Delete
Application.DisplayAlerts = True
End If
Next WS
End Sub

質問者からの補足コメント

• Target = "利用表"としていますがシート名には類似した“利用表6月”などが含まれていました。
  これを踏まえてTargetに利用表が含まれると変更したいのですがどのように変更したら良いでしょうか。助けてください。

    補足日時：2022/09/08 18:19

• シート名が
  利用表　　　　・・・・①
  利用表６月　　・・・・②
  ６月利用表　　・・・・③
  以外のシートを全て削除したいのですが助けてください。

    補足日時：2022/09/09 11:00

No.4 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/09/08 22:08

シート名が

利用表　　　　・・・・①
利用表６月　　・・・・②
６月利用表　　・・・・③
の場合、
①②③を削除したいなら
If InStr(WS.Name, Target) <> 0 Then
になります。

①②のみ削除したいなら
If InStr(WS.Name, Target) = 1 Then
になります。

この回答へのお礼

ありがとうございます。

利用表　　　　・・・・①
利用表６月　　・・・・②
６月利用表　　・・・・③
以外のシートを全て削除したいのですが助けてください。

お礼日時：2022/09/09 10:59

No.6 回答者： tatsumaru77 回答日時： 2022/09/09 19:10

>シート削除のマクロで「deleteメソッドは失敗しました」となります。

助けてください！

最後の1シートを削除しようとすると、必ずこのエラーが発生します。
削除する場合には、必ず、削除対象外のシートを１枚以上残した状態で
、削除するようにしてください。

No.5 回答者： tatsumaru77 回答日時： 2022/09/09 11:45

>シート名が

>利用表　　　　・・・・①
>利用表６月　　・・・・②
>６月利用表　　・・・・③
>以外のシートを全て削除したいのですが助けてください。

それなら
If InStr(WS.Name, Target) = 0 Then

でOKのはずです。（こちらで動作確認は行っていません）

この回答へのお礼

ありがとうございます♪

お礼日時：2022/09/09 20:02

No.3 回答者： tatsumaru77 回答日時： 2022/09/08 20:45

If InStr(WS.Name, Target) <> 1 Then

ではなく
If InStr(WS.Name, Target) <> 0 Then
ではないでしょうか。

No.2 回答者： osamuy 回答日時： 2022/09/08 17:39

後ろから削除するようにしてみては。

https://stackoverflow.com/questions/20220661/del …

この回答へのお礼

ありがとうございます。

お礼日時：2022/09/08 18:15

No.1 回答者： fujillin 回答日時： 2022/09/08 17:10

こんにちは

状況が不明なので、推測だけになりますが・・

・ブック内の唯一のシートを削除しようとして失敗している
あるいは
・ブックに保護が掛かっている状態で実行しようとしている
などということはありませんか？

この回答へのお礼

ありがとうございます。確認してみます。

お礼日時：2022/09/08 18:14