title: VBA multiple IF values
body: <p>The below code works and changes the offset cells when north is entered, i would like to also have it change if its south, west or east but i can seem to find a way to add this.</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  Dim KeyCells As Range
  
  
  Set KeyCells = Range("A7:A26")
  Set rng = Range("A7:A26")
  
  If Not Application.Intersect(KeyCells, Range(Target.Address)) _
         Is Nothing Then
  
      For Each cell In rng.Cells
          If cell.Value = "North" Then
              cell.Offset(0, 1).Interior.Color = RGB(0, 255, 0)
              cell.Offset(0, 2).Interior.Color = RGB(0, 255, 0)
              cell.Offset(0, 3).Interior.Color = RGB(0, 255, 0)
          End If
      Next
  
     End If
  
  
  End Sub
  </code></pre>