Excelの削除以前に作成されたシート

Question

私は複数の並べ替えとフィルタを通過するように設定したマクロを持っており、各ステップの終わりに新しいワークシートを作成し、フィルタリングされた情報を貼り付けます。

新しいブックを使用して同じブックを使用できるようにするには、前に作成したすべてのシートを削除してマクロを開始します。

私はすべてワークシートを削除するが、 "P High Offstd"を削除することはできません。

私は削除の順序を調整しようとしましたが、ワークシートを削除するさまざまな方法を調整しようとしましたが、そのワークシートを削除することを拒否しました。

名前を変更しようとしても、これはProcessing High Offstdと呼ばれていました。いかなる援助も有益であろう。

Application.ScreenUpdating = False 
For Each Sheet In ActiveWorkbook.Worksheets 
If Sheet.Name = "Processing 0% Performance" Then 
    Application.DisplayAlerts = False 
    Worksheets("Processing 0% Performance").Delete 
    Application.DisplayAlerts = True 
End If 
Next Sheet 
For Each Sheet In ActiveWorkbook.Worksheets 
If Sheet.Name = "Processing 0 OnStd" Then 
    Application.DisplayAlerts = False 
    Worksheets("Processing 0 OnStd").Delete 
    Application.DisplayAlerts = True 
End If 
Next Sheet 
For Each Sheet In ActiveWorkbook.Worksheets 
If Sheet.Name = "P High OffStd" Then 
    Application.DisplayAlerts = False 
    Worksheets("P High OffStd").Delete 
    Application.DisplayAlerts = True 
End If 
Next Sheet 
For Each Sheet In ActiveWorkbook.Worksheets 
If Sheet.Name = "Processing Low Performance" Then 
    Application.DisplayAlerts = False 
    Worksheets("Processing Low Performance").Delete 
    Application.DisplayAlerts = True 
End If 
Next Sheet 
With ActiveWorkbook.Worksheets("Processing") 
.Range("AA1:AZ" & .Range("AA1").End(xlDown).Row).ClearContents 
.Range("C3:C" & .Range("C3").End(xlDown).Row).ClearContents 
.Range("E3:E" & .Range("E3").End(xlDown).Row).ClearContents 
End With 

Answer 1

あなたのコードは、それは、ブックの最後のシートだということだろう

With Application 
    .ScreenUpdating = False 
    .DisplayAlerts = False 
End With 

For Each Sheet In ActiveWorkbook.Worksheets 
    If Sheet.Name = "Processing 0% Performance" Or Sheet.Name = "Processing 0 OnStd" _ 
    Or Sheet.Name = "P High OffStd" Or Sheet.Name = "P High OffStd" Or Sheet.Name = "Processing Low Performance" Then 
     Sheet.Delete 
Next Sheet 

With ActiveWorkbook.Worksheets("Processing") 
    .Range("AA1:AZ" & .Range("AA1").End(xlDown).Row).ClearContents 
    .Range("C3:C" & .Range("C3").End(xlDown).Row).ClearContents 
    .Range("E3:E" & .Range("E3").End(xlDown).Row).ClearContents 
End With 
With Application 
    .DisplayAlerts = True 
    .ScreenUpdating = True 
End With