VBA Loop Will Not Stop.

Hi,

My attached code won't stop looping. It's probably something very small but I have been looking at this a while now and can't seem to find the solution.

Would appreciate any help.

    b = cvsSrv.Reports.CreateReport(Info, Rep)
       If b Then
          Rep.Window.Top = 25000
          Rep.Window.Left = 25000
          Rep.Window.Width = 1
          Rep.Window.Height = 1
          Debug.Print Rep.SetProperty("Group", BGroup)
          Debug.Print Rep.SetProperty("Splits", "1;10;12-17;30;241;2000")
          b = Rep.ExportData("", 9, 0, True, True, True)
          Set wk = ThisWorkbook
          Sheet1.Cells(ReportRowstart, 1).PasteSpecial
          Rep.Quit
          ReportRowEnd = Sheet1.Range("A10000").End(xlUp).Row
          ReportRowstart = ReportRowEnd + 1
          If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
          Set Rep = Nothing
          End If
          Rep.Quit
          
   End If
      
      Next CurrentRow
       
    Set Info = Nothing

thank you

I think you need to show the entire loop too get the proper response. Your above code is missing the For statement for the CurrentRow.

' ReportRowstart = 1
            Startrow = 2
            EndRow = MaxRows
        
        For CurrentRow = Startrow To EndRow
        AgentGroup = Sheet2.Cells(CurrentRow, 9).Value


       b = cvsSrv.Reports.CreateReport(Info, Rep)
       If b Then
          Rep.Window.Top = 25000
          Rep.Window.Left = 25000
          Rep.Window.Width = 1
          Rep.Window.Height = 1
          Debug.Print Rep.SetProperty("Group", BGroup)
          Debug.Print Rep.SetProperty("Splits/Skills", "1;10;12-17;30;241;2000")
          b = Rep.ExportData("", 9, 0, True, True, True)
          Set wk = ThisWorkbook
          Sheet1.Cells(ReportRowstart, 1).PasteSpecial
          Rep.Quit
          ReportRowEnd = Sheet1.Range("A10000").End(xlUp).Row
          ReportRowstart = ReportRowEnd + 1
          If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
          Set Rep = Nothing
          End If
          Rep.Quit
         
   End If
      
      Next CurrentRow
       
'    Set Info = Nothing

thank you

What is maxrows?

MaxRows = Sheet2.Range("I10000").End(xlUp).Row
EndRow = MaxRows
StartRow = 2

For CurrentRow = Startrow To EndRow

thank you