title: Delete multiple sheets at once
body: <p>I have multiple sheets with data on each sheet. I want to delete sheets from sheet number 4 to unlimited. I have tried below code:</p>
  
  <pre><code>Sub Delete_Sheets()
      Application.ScreenUpdating = False
      Dim j As Integer
      j = Worksheets.Count
      For k = 4 To j
          With Sheets(k).Delete
          End With
      Next k
      Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <p>The problem is, every time the code ask my permission to delete sheet and finally saw deletes only few sheets. Someone help.</p>