シートを非表示/非表示 - VBA

Question

私は15枚のシートを含むワークシートを持っています。 「メインメニュー」シートが必要なので、ボタンをクリックして、選択したシートにリダイレクトして、他のすべてのシートを隠しておきます。選択したシートから、私は "メインメニュー"シートに戻って、やはりすべてを隠しておきたいと思っています。したがって、その時点で1枚のシートしか表示されません。

私の問題は次のとおりです。 私が使用しているVBAコードは完璧に動作していますが、エラー Run time error '1004': Method 'Visible' of object '_Worksheet'failed が表示されることがあります。デバッグするときは、次のように表示されます。debug screen

コードは「完全に」動作しますが、実行時エラー1004がポップアップすることがあります。私は間違って何をしていますか？コードは次のとおりです。

Sub Button8_Click() 
Sheet3.Visible = xlSheetVisible 
Dim sh As Worksheet 

    For Each sh In ThisWorkbook.Sheets 
     If sh.Name <> "practice group - mtd" Then 
      sh.Visible = xlSheetHidden 
     End If 
    Next sh 
End Sub 

Answer 1

すべてのシートをループ回避するために、より迅速な回避策： どこかメインメニューシートに隠された目に見えるシートの名前を保持します。 （非表示のセルで、固定位置にあります）。 ボタンをクリックすると、表示されているものとは異なるものが選択された場合、選択されたものが表示され、前のシートが非表示になり、メインメニューが更新されます。