VBA 文字列 チェック 色を付ける

Sub color() 'D列に　文字列　男の子 => 隣のC列を「青」　女の子だったら 「赤」

Dim i As Long

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

If Range("D" & i).Value = "男の子" Then

Range("C" & i).Interior.ColorIndex = 5 '青

ElseIf Range("D" & i).Value = "女の子" Then

Range("C" & i).Interior.ColorIndex = 3 '赤

End If

Next i

End Sub