0

I'm currently using this code to add some conditional formatting to column A:

Range("A2:A5000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=AND(SEARCH(""CTC"",$S2),$I2>=10000,$N2>=30)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

Unfortunately I just found out that sometimes instead of "CTC" I need to search for "critical to close", or "critical tc", etc. Is there a way I can easily modify that SEARCH function to include more criteria, perhaps by creating an array?

My fear is completely overhauling how I write it because I use that SEARCH function in many other places as well. I'd like to be able to do a simple find and replace in my code to prevent having to make many, many changes...

Thanks for the help-

dwirony
  • 5,487
  • 3
  • 21
  • 43

0 Answers0