title: For loop each workbook
body: <p>I'm trying to loop through every worksheet in my file and if certain word is found in workbook delete that cell with other eleven cells below.</p>
  <p>I give up. My code doesn't work. Can't figure out why.</p>
  <p>Can someone help me please?</p>
  <pre><code>Sub forEachWs()
  Dim ws As Worksheet
  Dim find As Range
  
  For Each ws In ActiveWorkbook.Worksheets
      Sheets(ws).Select
      Set find = Cells.find(What:=&quot;nieusprawiedliwiona&quot;, After:=ActiveCell, LookIn:= _
          xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
          xlNext, MatchCase:=False, SearchFormat:=False)
      If Not find Is Nothing Then find.Activate
  
      Range(Selection, Selection.Offset(11, 0)).Select
      Selection.EntireRow.Delete
  
  Next ws
  End Sub
  </code></pre>