Vale, ya lo tengo, por si a alguien le interesa:

Dim n As Integer
For n = 4 To 500
If Range("E" & n) = "0" Then
Worksheets("Riesgos").Range("A" & n, "L" & n).Interior.Color =
RGB(192, 192, 192)
Else
Worksheets("Riesgos").Range("A" & n, "L" & n).Interior.Color =
RGB(255, 255, 255)
End If
Next