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
Bookmarks