title: Loop through all worksheets to find bottom-most row of data in each tab individually
body: <p>I found this cool code that identifies the bottom-most row of data in a worksheet (considering all columns), and then types an X in Column B of the following row.</p>
  
  <p>However I have been unsuccessful at creating a loop with this code, so that each worksheet is treated uniquely. My attempts have typed X in the same cell of all worksheets, but not each worksheet individually based on it's own set of data.
  Also note that each of my tabs will not always have the same column be the longest, which is why I needed a code to look across all columns to find the bottom-most row.</p>
  
  <p>Can someone suggest how I can loop this and identify the bottom-most row in each worksheet individually?</p>
  
  <pre><code>Sub EndofData()
  
  Dim iRow As Long
  Dim iCol As Long
  
  iRow = Cells.Find(What:=”*”, _
  After:=Range(“A1”), _
  LookAt:=xlPart, _
  LookIn:=xlFormulas, _
  SearchOrder:=xlByRows, _
  SearchDirection:=xlPrevious, _
  MatchCase:=False).Row
  
  Cells(iRow + 1, 2).Select
  ActiveCell.FormulaR1C1 = “x”
  
  End Sub
  </code></pre>