How to prevent duplicates when building a string?

[Macro_Nerd99]

I have this code that works great to build a string. However, it sometimes creates duplicates. How do I prevent this?

For Each cl In ws.Range("B4:B" & lr)
 If cl.Offset(, 19).Value > imax Then
            
                        iViolations = iViolations + 1
                        cl.EntireRow.Interior.ColorIndex = 6
                        Highlighted_Trades = True
                        Violations_str = Violations_str & cl.Value & ","
  End If
Next cl

 

[Fluff]

How about

For Each Cl In ws.Range("B4:B" & LR)
 If Cl.Offset(, 19).Value > imax Then
            
                        iViolations = iViolations + 1
                        Cl.EntireRow.Interior.ColorIndex = 6
                        Highlighted_Trades = True
                        If InStr(1, Violations_str, Cl.Value, vbTextCompare) = 0 Then Violations_str = Violations_str & Cl.Value & ","
  End If
Next Cl

 

[Macro_Nerd99]

How about

For Each Cl In ws.Range("B4:B" & LR)
 If Cl.Offset(, 19).Value > imax Then
           
                        iViolations = iViolations + 1
                        Cl.EntireRow.Interior.ColorIndex = 6
                        Highlighted_Trades = True
                        If InStr(1, Violations_str, Cl.Value, vbTextCompare) = 0 Then Violations_str = Violations_str & Cl.Value & ","
  End If
Next Cl

Worked great! Thanks

 

[Fluff]

You're welcome & thanks for the feedback.