title: Change interior color of entire row based on column value VBA
body: <p>Need to insert a statement that when VDB (i,35) = Deleted that the entire row interior color turns color index 22 (coral).</p>
  
  <p>I need this step to occur within this block, without needing to add code in a new block (unless absolutely necessary), as sheet has 20K plus entries.  I am assuming since this is where I am identifying when the item has a status of "Deleted", and placing "Deleted" into column 35, I should be able to color it in this same step/block, and it would be most efficient method. I may be wrong..</p>
  
  <p>Is there another line I can add after the last line, that will color these entries that ="Deleted" in col index 35?</p>
  
  <p>I have tried passing  vDB(i,35) to another variable as a range, and setting it, and then using if it = Deleted to change the entirerow.interior.color index = 22 , but I can't get the phrasing right, and may be taking wrong approach. I am still in learning curve but try to figure out my own issues, before bugging the group, but I can't seem to get it right.</p>
  
  <p>Here is snip it.</p>
  
  <pre><code>'Execute Find (Vlookup)
  
  For i = 1 To UBound(vDB, 1)
  'If sht.Cells(i, 1).Value &lt;&gt; "" Then
      If vDB(i, 1) &lt;&gt; "" Then
          Set rng = rngData.Find(vDB(i, 1), LookIn:=xlValues, Lookat:=xlWhole) 'Matches entire contents of cell for an exact match
          If Not rng Is Nothing Then
             'If found return value of column 9 of ABC Recalc Cycle Count Remainder Browse (offset by 2), into ABC Matrix monthly ABC Code column, as determined by variable
              vDB(i, ABCCodeCell) = rng.Offset(, 7)
              'If found, return the value of column 7 of ABC Recalc Cycle Count Remainder Browse (offset by 2), into ABC Matrix column 27
              vDB(i, 27) = rng.Offset(, 5)
              'If found, return the value of column 11 of ABC Recalc Cycle Count Remainder Browse (offset by 2), into ABC Matrix column 34
              vDB(i, 33) = rng.Offset(, 9)
              'If found, place value of ABCMatrixMonthSelect.ComboBox1 in column AO Col Index 41
              vDB(i, 41) = ABCMatrixMonthSelect.ComboBox1.value
          Else
              vDB(i, 35) = "Deleted"
              vDB(i, 41) = ABCMatrixMonthSelect.ComboBox1.value
              With vDB(i, 1) = sht.Cells.Interior.Color = RGB(247, 119, 109) 'Light Red
              End With
          End If
      End If
      If vDB(i, ABCCodeCell) = vDB(i, lastMonthABCCode) Then
      vDB(i, 36) = "No"
      Else
      vDB(i, 36) = "Yes"
      End If
  DoEvents
  Next
  rngDB = vDB
  
  Dim LR As Long
  LR = sht.Cells(Rows.Count, 1).End(xlUp).Row
  sht.Cells.FormatConditions.Delete
  With sht.Range("1:" &amp; LR)
      .FormatConditions.Add Type:=xlExpression, Formula1:="=$AI1=""Deleted""" 'Searches for value "Deleted" in Range 1 to last row
      With .FormatConditions(.FormatConditions.Count)
         .SetFirstPriority
         With .Interior
             .Color = RGB(247, 119, 109) 'Light Red
         End With
      End With
  End With
  
  'Reset Excel Status Bar
  Application.StatusBar = False
  e here
  </code></pre>