This loop will not end, it goes around and around and around and around!
Any suggestions on how to fix the code?

The loop should only find a maximum of 10 values.



 With Columns("F:F")
        Set cl = .Find(What:="Teacher", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False)
        If Not cl Is Nothing Then
            clAddress = cl.Address
            Do
                cl.Offset(-1, 0).Activate
                ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Teacher,8,FALSE)"
                
                                 
                Set cl = .FindNext(cl)
            'Loop Until cl Is Nothing
            
            Loop While Not cl Is Nothing
        End If
    End With
Thanks