Makro funktioniert nicht

Sub farbig_B()
For i = 5 To Worksheets(1).Range("A2:A10").End(xlDown).Row
If Worksheets(1).Range("A" & i).Value = "x" Then
Worksheets(1).Range("B" & i).Interior.ColorIndex = 35
End If
Next i
End Sub

Sub farbig_B_D()
For i = 5 To Worksheets(1).Range("A2:A10").End(xlDown).Row
If Worksheets(1).Range("A" & i).Value = "x" Then
Worksheets(1).Range("B:D" & i).Interior.ColorIndex = 35
End If
Next i
End Sub