title: Find column headers and highlight it including below cells of it
body: <p><a href="https://i.stack.imgur.com/jhTtm.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/jhTtm.png" alt="enter image description here"></a></p>
  
  <pre><code>Private Sub CommandButton2_Click()
  Dim headersRange As Range, cellsToloop As Range
  Dim col As Long, lRow As Long, colName As String
  
  Set headersRange = Range("HeadersToFind")
  
  For Each cellsToloop In headersRange 'This line works
    If cellsToloop.Value = "Sun" Then 'This line works
      cellsToloop.Cells.Interior.Color = RGB(160, 160, 100) ' up to here
  
      'From here it does nothing
      col = cellsToloop.Column
      colName = Split(col.Cells(, col).Address, "$")(1)
      lRow = .Range(colName &amp; .Rows.Count).End(xlUp).Row
      Set rng = .Range(colName &amp; "8:" &amp; colName &amp; lRow)
      rng.Cells.Interior.Color = RGB(160, 160, 200)
      'Upt her doesnt work
    End If
  Next cell
  End Sub
  </code></pre>
  
  <p>With this code, i managed to highlight the headers but i failed to highlight cell under each column header Sun.</p>