title: VBA loop only going through one sheet
body: <p>I made a function which returns the total sum of values in a specific range from all sheets in the workbook and multiply it with a scalar. The For loop is meant to go until the last sheet in the book via the sheet Count property, but I reduced it to 2 sheets to help me figure out what was going wrong. </p>
  
  <p>As it stands, the For loop exits after one iteration and I can't figure out why that is from looking at the code. The Do loop is resolving as it should.Any help is greatly appreciated!</p>
  
  <pre><code>Public Function FPP_Total()
  
  Dim Book As Workbook: Set Book = ActiveWorkbook
  Dim sheetCount As Integer: sheetCount = Book.Sheets.Count
  Dim total As Long
  Dim rowCount As Integer
  Dim currentSheet As Worksheet
  
  rowCount = 2
  
  For i = 3 To 5
  
      Set currentSheet = Book.Sheets(i)
  
      Do
  
      total= (total+ currentSheet.Cells(rowCount, 3).Value)
      rowCount = rowCount + 1
  
      Loop Until IsEmpty(currentSheet.Cells(rowCount, 1).Value)
  
  Next
  
  FPP_Total = total * 5
  </code></pre>
  
  <p>End Function</p>