VBA for excel中如何讓cells.find()找到最後一筆資料後不再回頭(編號：5506)

程式如下
Sub()
..............
do
Cells.find(.."XXXX"...).activate
.......................
loop while ??????
End Sub
結果每次找到最後一筆"XXXX"後,又再回頭重新搜尋,形成無窮迴圈.
請問while之條件式應設為何?或有其他更好的方法?
Thanks!