Worksheets.Remove（）経由でワークシートを削除する

Question

VBAコードでワークシートを削除しようとしています。ここでの一般的な考え方は、ワークシートの数が18に達すると、終了ワークシートを削除するということです。ワークシートはコレクションなので、私は試みました：

If Worksheets.Count = 18 Then 
    Worksheets.Remove (Worksheets.Count) 
    End If 

エラーを取得します。何か案は？ ありがとう！

Answer 1

警告を最初に無効にしてから、deleteメソッドを使用する必要があります。

Application.DisplayAlerts = False 
Worksheets(Worksheets.Count).Delete 
Application.DisplayAlerts = True 

Answer 2

代わりWorksheets.Delete("SheetName")を使用してみてください：https://msdn.microsoft.com/en-us/library/office/ff837404.aspx。

If Worksheets.Count = 18 Then 
    Worksheets.Delete(Worksheets.Count) 
End If 

Answer 3

これを試してみてください：

Sub WorksheetDelete() 

Application.DisplayAlerts = False 'To avoid display alert 
Do Until ActiveWorkbook.Worksheets.Count>=18 
    ActiveWorkbook.Worksheets(18).Delete 'Delete the 18th worksheet 
Loop 
Application.DisplayAlerts = True  'Turn on the Alerts 

End Sub