Error pop up: compile error sub or function not definedwhen executing macro

HansVogelaar , thanks for the advice. 

I would like to use a For loop to delete the entire row if "Success" is found in each row. However, i got an error msg pop up stating "Run time error 424, Object required".

Below is the code:

Sub daily_instalment()
    
    Dim ws          As Worksheet
    Dim lastRow     As Long
    Dim i           As Long
    Dim successrng   As Long
    Dim cell        As Range
    Dim successrange As Range
    
    For Each ws In Worksheets
        
        ws.Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
                                        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
                                        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
                                        :=";"
        
        ws.Rows("1").EntireRow.Delete
        
        ws.Range("A1").CurrentRegion.EntireColumn.AutoFit
        
        lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).EntireRow.Row
        
        ws.Rows(lastRow).EntireRow.Delete
        
        ws.Range("H:H").EntireColumn.Insert
        
        ws.Range("H1").Value = "TOTALPAYMENTS"
        
        'ws.Columns("J").Delete
        'ws.Columns("K").Delete
        'ws.Columns("L:O").Delete
        
        successrng = ws.Cells.Find(What:="Success", After:=ActiveCell, LookIn:=xlValues _
                     , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                     MatchCase:=False).Row
        
        For Each cell In successrange '<-- error popping out from this line
            
            If Not cell Is Nothing Then
                
                ws.Rows(successrng).EntireRow.Delete
                
            End If
            
        Next cell
        
        For i = 2 To lastRow
            
            Cells(i, 8).Value = Cells(i, 6).Value * Cells(i, 7).Value
            
        Next i
        
    Next
    
End Sub