Excel - ayuda con if

Hola amigos de LWP tengo la siguiente macro:
Sub color()
if Range("C5").Value>10 Then
Range("C5").Select
With Selection.Interior
.ColorIndex=3
.Pattern=xsolid
End With
End If
End sub
pero lo que quiero es que pregunte por un rango de C5 hasta C100, que todos los valores mayor a 10 que encuentre en ese rango lo ponga en rojo?????? de antemano muchas gracias

Sub color()
Dim rng As Range
Dim cell As Range

Set rng = Range("C5:C100")
For Each cell In rng
With cell
If .Value > 10 Then
With .Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
End With
Next

Set rng = Nothing
Set cell = Nothing
End Sub

Saludos desde Baires, JuanC

Muchas Greacias amigo Juan....desde Chihuahua, Chih., México tu amigo Jorge