エクセルのマクロについて教えてください。

Excelのマクロについて教えてください。
作業ブックのシートの非表示と不要シートの削除方法を教えてください。
作業ブックに複数のシートがあります。
そのシートの内
シート名「受付」「300」「休日：このシートは元々非表示です」を非表示に
シート名「F設計INDX」「F審査」を削除しないで表示のままです。
シート名「受付」「300」「休日」「F設計INDX」「F審査」
以外のシートをすべて削除できるマクロを教えてください。
よろしくお願いいたします。

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

• いつも回答をありがとうございます。
  お願いがあります。
  今回は残すシート以外（非シートを含む）を表示させて手動にてシートを削除するようになってますが、
  残すシート("受付", "300", "休日", "F設計INDX", "F審査")以外はこの作業ブックでは完全に使用しませんので、「警告文無し」にて削除を教えてください。
  又、残すシートの内("受付", "300")は非表示にしたいのですが、よろしくお願いいたします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2023/01/25 13:25

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2023/01/25 13:10

＞実行後　Delキーを押せば削除されます

これは嘘ですね　シートタグから削除してください

この回答へのお礼

回答ありがとうございました。
何とかできました。
感謝いたします。

お礼日時：2023/01/25 14:02

No.1 回答者： Qchan1962 回答日時： 2023/01/25 12:58

削除するのは簡単ですけれど・・気持ち悪いので

削除するべきシートを選択するコードです
実行後　Delキーを押せば削除されます
コード内に削除処理パーツもコメントで残しておきますので　
お好きに改修してください

Dim sht As Worksheet
Dim chkName, flg As Boolean
Dim arr(), n As Integer
'Application.DisplayAlerts = False
For Each sht In Worksheets
For Each chkName In Array("受付", "300", "休日", "F設計INDX", "F審査")
If sht.Name = chkName Then flg = True: Exit For
Next
If Not flg Then
'sheetObject.Delete
ReDim Preserve arr(n)
arr(n) = sht.Name
If sht.Visible = False Then sht.Visible = True
n = n + 1
End If
flg = False
Next
Worksheets(arr).Select
'Delete
'Application.DisplayAlerts = True