Finding several occurrences of a text in a column using FindNext

Sub findtest()

Dim rngFound As Range

With Worksheets("ValueArea").Columns("G")
    Set rngFound = .Find(What:="Yes", LookIn:=xlValues, LookAt:=xlWhole)
    If Not rngFound Is Nothing Then
        firstaddress = rngFound.Address
        MsgBox firstaddress
    
    
       Do
        Set rngFound = .FindNext(rngFound)
        MsgBox rngFound.Address
      Loop While rngFound.Address <> firstaddress
     ' Loop Until rngFound.Address = firstaddress
    
    End If
 End With
End Sub

Hello AB33,
Thanks for your reply. I tried your code. $G$2 is still getting repeated.

I do not know what you are expected from the find function. I have included a color to show you it picks up all matches.

Sub findtest()

Dim rngFound As Range

With Worksheets("ValueArea").Columns("G")
    Set rngFound = .Find(What:="Yes", LookIn:=xlValues, LookAt:=xlWhole)
    If Not rngFound Is Nothing Then
        FirstAddress = rngFound.Address

       Do
           MsgBox FirstAddress
           rngFound.Interior.ColorIndex = 3
        Set rngFound = .FindNext(rngFound)
        MsgBox rngFound.Address
      Loop While rngFound.Address <> FirstAddress
     ' Loop Until rngFound.Address = firstaddress
    
    End If
 End With
End Sub

Sub findheaderhead()
Dim rng As Range, cel, ws As Worksheet, FirstAddress As String


             With Sheets("ValueArea").Columns(7)
                  Set rng = .Find("Yes", .Cells(.Cells.Count), xlValues, xlWhole)
                        If Not rng Is Nothing Then
                          FirstAddress = rng.Address
                           Do
                           rng.Interior.ColorIndex = 3
                            
                            Set rng = .FindNext(rng)
                          Loop While Not rng Is Nothing And rng.Address <> FirstAddress
                        End If
             End With
     
         
Set rng = Nothing
Application.ScreenUpdating = True
End Sub

Should be like this

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

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

End If

End Sub

Thanks AB33 for trying

Hello jindon, thank you very much!. Yes that is what I was looking for .

Sorry I'm unable to give you any reputation points