Looping Through Cells.find Results

I've written a macro which searches the sheet for a value, when it finds the value it does something, then I want it to keep looping until it's done.

The issue is that Excel's find does not search first to last. Once it gets to the last, and you search next, it goes back to the beginning and finds the first cell.

In order to break out of the loop, I figured I should store the first cell found in a variable and then check inside my loop to see if I have got looped back to the beginning. If I got back to the first cell found, then I exit my loop and I'm done.

However, my code doesn't work. It exits the loop after a couple of iterations.

Sub Macro5()
'
' Macro2 Macro
'
If WorksheetFunction.CountIf(Cells, "TEST") = 0 Then
MsgBox ("Not Found")
Exit Sub
End If

Cells.Find(What:="TEST", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate...............