VBA：**非表示にしたシートを削除したいです。**

Question

前提・実現したいこと

非表示にしたシートを削除したいです。
今現在、マクロでプロシージャを何個か作って
Callステートメント２つ作成し、
以下のように処理１と処理２の各ボタンを作成して２回実行しようとしています。

Sub 処理1()
Call test1
Call test2
Call test3
・
・
・
End Suｂ

Sub 処理2()
Call macro1
Call macro2()
Call macro3()
・
・
・
End　Sub

そこで、処理１でシートを非表示にするというプロシージャを作成しています。
以下になります。

Sub test1()
'Sheet1を非表示にする

Sheets("Sheet1").Visible = False

End Sub

次に、処理2に非表示シート(Sheet1）を含め何枚かのシートを削除する　という処理をいれています。
以下では対象シート以外を削除する　というコードにしています。

'指定したシート以外のシートを削除する(削除しないシートは複数)
Sub test2()
    Dim ws As Worksheet

    'シート削除の確認ポップアップを非表示
    Application.DisplayAlerts = False

    For Each ws In ActiveWorkbook.Worksheets
        Select Case ws.Name
            '非表示シート「対象シート」は何もしない
            Case "対象シート"
            'それ以外は削除する
            Case Else
                ws.Delete
        End Select
    Next ws

    Application.DisplayAlerts = True
End Su

↑でエラーがでてしまったため、このコードの前に非表示シート(Sheet1）を再表示すればいいのではないかと考え再表示ステートメントを作成しました。
以下になります。

Sub macro1()
'非表示シートSheet1を再表示する

Sheets("Sheet1").Visible = True

End Sub

ここまで頑張ってみたのですが、エラーになってしまいます。
処理1,処理2とCallステートメントが分かれているためエラーがでるのでしょうか。

発生している問題・エラーメッセージ

インデックスが有効範囲にありません。

Answer 1

次に、処理2に非表示シート(Sheet1）を削除する　という処理をいれています。
以下では非表示シート(Sheet1)以外を削除する　というコードにしています。

とのことですが、Sheet1は削除するのですか？しないのですか？
もし、非表示シートは削除するけど、Sheet1だけは非表示でも削除しない、ということであれば、以下のようになるでしょうか。

For Each ws In ActiveWorkbook.Worksheets
    If ws.Visible = False And ws.Name <> "Sheet1" Then
        ws.Delete
    End If
Next ws

なお、「インデックスが有効範囲にありません。」というエラーですが、これはSheet1が無い場合などに発生します。
いろいろ試しているうちに、Sheet1を削除してしまっている、ということはありませんか？

Comments

[aaaskw123123]

申し訳ございません。
コードの編集をしました。
対象シート以外のシートなので、非表示のシートも消したいです。

また、Sheet1があるか手作業で確認しましたが
再表示の中にちゃんとSheet1はありました。

[aaaskw123123]

ちなみに、再表示のプロシージャ単体で実行するとエラーは起きずちゃんと再表示されるのですが、
Callステートメントに入れるとエラーが起きてしまいます。

[hex309]

処理の流れは以下でよろしいですか？「非表示のシートも」ということなので、表示去れているシート含め、ということですよね。
・Sheet1を非表示にする
↓
・「対象シート」以外のシートをすべて削除する

だとすると、最終的には「対象シート」というシートが1つ残るだけ（Sheet1も削除される）ですが、あっていますか？
それとも、「対象シート」と「Sheet1」の2つが残って、その時、「Sheet1」は非表示にしたい、ということでしょうか？

[hex309]

「ActiveWorkbook」を削除対象にしているので、複数ブックが開かれているとかではないですか？

[aaaskw123123]

はい、その認識で大丈夫です。
最終的には対象シートのみをエクセル上に残して
それ以外は削除したいです。
Sheet1をとにかく削除したいです。

[aaaskw123123]

複数ブックは開いてなくて、一つのみです。

[hex309]

だとすると、Sheet1を非表示にする処理はそもそも不要では（どのみち削除するのであれば）。
なので、以下でどうでしょう。↓提示されたのと同じです。すみません。
For Each ws In ActiveWorkbook.Worksheets
Select Case ws.Name
Case "対象シート"
Case Else
ws.Delete
End Select
Next ws

[hex309]

マクロが入っているブックが対象であれば、
ActiveWorkbookは、ThisWorkbookにしたほうが良いかと
あと、
Sheets("Sheet1").Visible = True
も、以下のほうがよろしいかと
ThisWorkbook.Sheets("Sheet1").Visible = True

[aaaskw123123]

Seet1を非表示にするのはこちらの都合上で行っているため不要にはできなくて????なので、非表示の状態にしたまま削除したいのです。すみません。

[hex309]

以下でお試しください。ほぼ頂いたコードですが。
最終的には、「対象シート」のみになります。

Sub Sample()
Call test1
Call test2
End Sub

Sub test1()
'Sheet1を非表示にする
ThisWorkbook.Sheets("Sheet1").Visible = False
End Sub

Sub test2()
Dim ws As Worksheet

'シート削除の確認ポップアップを非表示
Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "対象シート"
Case Else
ws.Delete
End Select
Next ws

Application.DisplayAlerts = True
End Sub

[aaaskw123123]

ありがとうございます。
Thisworkbookといれたら、エラーがおきずに実行出来ました！本当にありがとうございます！