title: Clear different range of data in multiple worksheets
body: <p>I have a workbook that is used as a template to fill in data. The data is cleared and the workbook is reused.<br />
  The workbook has multiple worksheets and the range that needs to be cleared is different in every worksheet.</p>
  <p>Let's say I want to clear the data in the range A10:Y50, I put value &quot;Start&quot; in the cell Z10, as a starting point to clear data. &quot;Start&quot; is located in different cell in every worksheet.<br />
  The code is clearing data based on the &quot;Start&quot; located in the first worksheet and not independently for each worksheet.</p>
  <pre><code>Sub TestReset()
      
  Dim sht As Worksheet
      
  For Each sht In ActiveWorkbook.Sheets
      If sht.Name &lt;&gt; &quot;Sheet1&quot; And sht.Name &lt;&gt; &quot;Sheet2&quot; Then '
          Dim iRow As Long, iMax As Long
          
          iRow = Cells.Find(What:=&quot;start&quot;, LookIn:=xlFormulas, _
          LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
          MatchCase:=False, SearchFormat:=False).Row
          iMax = Cells(iRow, &quot;A&quot;).End(xlDown).Row
      
          sht.Range(&quot;A&quot; &amp; iRow &amp; &quot;:AY&quot; &amp; iMax).ClearContents
      End If   
  Next sht
      
  End Sub
  </code></pre>