I am using
With Worksheets(1).Range("b5:b100")
Set c = .Find("YES", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
MsgBox c.Value & "found",vbOkOnly,"Found"
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With
to find the "yes" value in column "B"
that works fine,

is there a way to get the value in the same row only in column d?

I am wanting to use the value in column d in the message instead of the text
"YES".