try:

MsgBox c.Value & " - "& c.cells(1,2).value & "found",vbOkOnly,"Found"


"David W" wrote:

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".