title: Loop through Excel Sheets
body: <p>I have the following Code and I would like it to run in 25 other sheets of the Workbook and instead of repeating the code 25 times,for each sheet is there a way to make it loop?</p>
  
  <p>Can someone assist?</p>
  
  <pre><code>Sub DeleteEmptyRows()
  Dim ws As Worksheet
  Dim strSearch As String
  Dim lRow As Long
  
  strSearch = "ressort"
  
  Set ws = Sheets("01,02,03")
  
  With ws
      lRow = .Range("A" &amp; .Rows.Count).End(xlUp).Row
  
  
  
  
      With .Range("A1:A" &amp; lRow)
        .AutoFilter Field:=1, Criteria1:="=*" &amp; strSearch &amp; "*"
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
      End With
  
     ActiveSheet.Range("$A$1:$P$65536").AutoFilter Field:=1
  
  End With
  End Sub
  </code></pre>