Cells(R.Row, 1).Resize(, 10).Interior.ColorIndex = -4142
Select Case R.Column
Case 5: Cells(R.Row, 5) = Date
Case 10
R = IIf(R = "þ", "o", "þ")
Cells(R.Row, 1).Resize(, 9).Interior.ColorIndex = IIf(R = "þ", 15, -4142)
Case 9
R = IIf(Not R.Value = "þ", "þ", "o")
Cells(R.Row, 1).Resize(, 8).Interior.ColorIndex = IIf(R = "þ", 45, -4142)
End Select