Cell Shading Macro Depending on Text

Hello BluTalon,

This version automatically "reads" the size of the your array using the first cell ($A$3) as a reference. It allows you to use more colors easily later on.

Sub Shading()

  Dim CI As Long
  Dim R As Long
  Dim Rng As Range
  
    Set Rng = ActiveSheet.Range("$A$3").CurrentRegion
    
      For R = 1 To Rng.Rows.Count
        Select Case Rng.Cells(R, 9)
          Case Is = "Tech"
            CI = 36
          Case Is = "Update"
            CI = 34
          Case Else
            CI = xlNone
        End Select
        With Rng
          .Range(Cells(R, 1), Cells(R, .Columns.Count)).Interior.ColorIndex = CI
        End With
      Next R
    
End Sub

Sincerely,
Leith Ross