If more than cell in a range meets or exceeds a criteria then only one response

[ThomasOES]

Hello,
I use the code below to check a range of cells. If true then add "X99%" to text in cell "repsym". Problem is, sometimes the range has more than one cell that returns a true value. Then cell "repsym" has several "X99%" added to text.
How to check a range, and if one or several return a true value, then only one response.
Thanks
Tom

For Each cell In Range("GraphSampAvg").Cells
    If cell.Value <= (Range("Lot99WVal") / 2) Then _
    Range("repsym").Select
        With Selection
        .Value = Range("repsym") & " X99%"
        .Interior.Color = vbBlack
        .Font.Color = vbWhite
        End With
Next

Strangely, I would get error code "End if without if". I removed the end if and it works albeit incorrectly with all the extra "X99%".

 

[Eric W]

Try:

For Each cell In Range("GraphSampAvg").Cells
    If cell.Value <= (Range("Lot99WVal") / 2) Then 
        With Range("repsym")
           .Value = .Value & " X99%"
           .Interior.Color = vbBlack
           .Font.Color = vbWhite
        End With
        Exit For
    End If
Next

Note I removed the _ from the If line and replaced the End If.

 

[ThomasOES]

Double Thanks Eric
Code is nice and all my future code will go straight to With the range instead of the clumsy select then With selection.
Thanks
Tom

 

[Eric W]

Happy to help!