I'm not sure how to do this...

[Lidsavr]

I am running Excel 2010 and writing code for Excel 2007 and 2003 users.

I want to find if a value exists in Column D. The value is: **FAIL** (including the astericks).

If it does exist, I want a "WARNING" message box to appear. If not, I want to continue with the rest of the macro.

I tried using the Selection.Find method, but I do not know how to proceed if the value is found.

Can someone help me with this?

Thank you,

Charles (Lidsavr)

 

[Andrew Poulsom]

If you post your code that uses the Find method someone will be able to help you.

 

[bradgar]

iLoop = worksheetfunction.countif(columns("D"), "**FAIL**")

set ckR = Range("A1")

for i = 1 to iLoop
    Set ckR = Sheet1.Columns("D").Find(What:="**FAIL**", After:=Range("A1"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
range("D" & ckR.row).select
msgbox "WARNING", vbcritical, "**FAIL**"
next i

this should work. It will select the cell and send a warning msg for each **FAIL** in column D

-Brad