title: Applying Interior Color if Active Cell eqauls specific text - VBA
body: <p>I'm new to StackOverflow and VBA. I am an Expert with all aspects of Excel except writing code in VBA from scratch.</p>
  
  <p>What I am trying to do is apply an color from the index to the interior of a cell if it contains a specific term. Here is what I have:</p>
  
  <pre><code>Sub ConditionalFormatting()
  
  Do Until ActiveCell = ""
  
  If ActiveCell = "STAR DISTRICT" Then
  ActiveCell.Interior.ColorIndex = 50
  ElseIf ActiveCell = "STAR SCHOOL" Then
  ActiveCell.Interior.ColorIndex = 50
  ElseIf ActiveCell = "HIGH PERFORMING" Then
  ActiveCell.Interior.ColorIndex = 43
  ElseIf ActiveCell = "SUCCESSFUL" Then
  ActiveCell.Interior.ColorIndex = 34
  ElseIf ActiveCell = "ACADEMIC WATCH" Then
  ActiveCell.Interior.ColorIndex = 38
  ElseIf ActiveCell = "LOW PERFORMING" Then
  ActiveCell.Interior.ColorIndex = 22
  ElseIf ActiveCell = "AT RISK OF FAILING" Then
  ActiveCell.Interior.ColorIndex = 18
  ElseIf ActiveCell = "FAILING" Then
  ActiveCell.Interior.ColorIndex = 3
  Else: ActiveCell.Interior.ColorIndex = 1
  End If
  
  ActiveCell.Offset(1, 0).Select
  
  Loop
  
  End Sub
  </code></pre>
  
  <p>The options are:
  Star District or School,
  High Performing,
  Successful,
  Academic Watch,
  Low Performing,
  At Risk of Failing,
  Failing</p>
  
  <p>This code works for one column (except for the bottom two terms) but it will not work anywhere else in the worksheet. When I try it anywhere else, all of the Cells turn Black (or ColorIndex = 1) no matter what the cell contains.</p>
  
  <p>Any help would be greatly appreciated.</p>
  
  <p>Trenton</p>