title: Delete all worksheets except the first x amount of sheets
body: <p>I am trying to delete all worksheets except the first 20 sheets </p>
  
  <p>I have this code - Which I thought was working, but I just run it now and it only deletes some of the sheets.</p>
  
  <pre><code>Sub DeleteAll()
      i = Worksheets.Count
      For x = 21 To i
          Application.DisplayAlerts = False
          Worksheets(x).Delete
          Application.DisplayAlerts = True
      Next x
  End Sub
  </code></pre>