Finding several occurrences of a text in a column using FindNext

[realdemigod]

Hello,
I'm trying to find several occurrences of a text ("Yes") in a column as I would need the row values for each occurence. I'm using FindNext but the first occurrence is getting repeated. Could anyone help me to let only one istance of the occurence of "Yes" in col. G. Below are the code and the file.

Sub findtest()

Worksheets("ValueArea").Select
Dim rngFound As Range
Set rngFound = Range("G:G").Find(What:="Yes", LookIn:=xlValues, LookAt:=xlWhole)
If Not rngFound Is Nothing Then
    firstaddress = rngFound.Address
    MsgBox firstaddress


Do
    Set rngFound = Range("G:G").FindNext(rngFound)
    MsgBox rngFound.Address
    Loop Until rngFound.Address = firstaddress

End If

End Sub

Thanks in advance.