Перебор ячеек в столбце exel - VBA

Формулировка задачи:

Добрый день, Товарищи! Не совсем понимаю еще exel. Задача, перебрать все строки (ячейки) в одном столбце и выполнить условие. Вот условие, если в чейке сегодня, то закрасить всю строку красным. Как перебрать весь столбец?

                    Листинг программы
                
 
                        
                          
                    
If ActiveCell.Value = today Then
 
ActiveCell.Rows("1:1").EntireRow.Select
With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If

Поспешил, простите.

                    Листинг программы
                
 
                        
                          
                    
For Each c In [Q:Q]
If c.Value = today Then
 
c.Rows("1:1").EntireRow.Select
With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
 
  Next

Решение задачи: «Перебор ячеек в столбце exel»

textual
                            Листинг программы 
                        
Private Sub Test()
    Application.ScreenUpdating = False
 
    Dim iCell As Range, tmp As Date: tmp = Date
    For Each iCell In Range(Cells(1, "Q"), Cells(Rows.Count, "Q").End(xlUp))
        If iCell.Value = tmp Then iCell.EntireRow.Interior.Color = 255 'vbRed
    Next
 
    Application.ScreenUpdating = True
End Sub