Excel VBAで、セルの背景に色を付けてみた

ついでに、先ほどの1分足のデータに3分ごとにセルの背景に色を付けてみた。
作業上少し見やすくなると良いかなあと思って。

========================================
Sub 背景カラー()

Dim 行数, i As Long
行数 = ActiveSheet.Range("A1").End(xlDown).Row

For i = 2 To 行数

 If Minute(Range("A" & i)) = 0 Then
    Range("A" & i).Interior.ColorIndex = 34 '水色
    End If
   
 If (Minute(Range("A" & i)) Mod 3) = 0 Then
    Range("A" & i).Interior.ColorIndex = 34 '水色
    End If

Next i

End Sub
========================================