title: Excel - VBA: Change the text color of a cell based on the text color of an adjecent cell
body: <p>I am working on a macro that loops through the range dData and identifies which cells have a white font color. Then it changes the font color of any cell adjacent to dData white. The below code is what I have so far. It does not work yet but, am I on the right track?</p>
  
  <p>Thanks!</p>
  
  <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim dData As Range
  Dim Cell As Range
  
  Set dData = Sheets("Sheet1").Range("l2:l10000")
  
  For Each Cell In dData
      If Cell.Font.Color = 2 Then
          Cell.Offset(0, -1).Font.Color = 2
      End If
  Next Cell
  End Sub
  </code></pre>