X枚のシートの後にすべてのワークシートを削除

Question

このコードをクリックすると、6枚以上のシートがすべて削除されます。

それは、しかし、私はその後

Private Sub UnloadButton_Click() 

    Do While Worksheets.Count > 5 
     Application.DisplayAlerts = False 
     Worksheets(6).Delete 
     Application.DisplayAlerts = True 
    Loop 

    End Sub 

同様の質問「ワークシートのクラスのメソッドが失敗した削除」エラーを取得しています、私はすべてのシートまたは名前付きシートを削除したい見ていると私は本当にためにそれらを適応させることができなかった作品

この。

シート6がなくなったときにシート6を削除しようとしていたと思われましたが、シートカウントが5になると、別のループがトリガーされません。デビッド・Gへ

Answer 1

おかげ

私は私のコードが実際に実際に隠されたシートを削除しようとしていたとして、最初に削除する。

重要な教訓を他のユーザーのシートで作業する際に必要な3「非常に隠された」シートを持っていました、非常に非表示のシートを確認してください。

Answer 2

あなたの問題は、あなたがあなたの元のコードでも

以下のようにループさせずにシートを削除することができVeryHiddenノートでしたが、あなたはを移動示唆ループ外にがあります。

If Worksheets.Count > 5 Then 
     Application.DisplayAlerts = False 
      Sheets(Application.Transpose(Application.Evaluate("=ROW(6:" & Sheets(Sheets.Count).Index & ")"))).Delete 
     Application.DisplayAlerts = True 
    End If