Visual Basic - Ayuda en una macro

A ver, es una macro muy simple pero nosé porqué huevos no me sale.

Macro=se trata de marcar en color rojo todos los elementos de una columna de EXCEL que sean inferiores a 1 y sino en negro u otro color.
Simplemente eso. Creía que dominaba un poco más , pero me he estancado en esto.
A ver; yo he puesto:

1era opción:
Sub colorrojo()
Dim r As Range
Set r = ActiveSheet.Range("c1:c50")
If r < 1 Then
r.Font.Color = RGB(255, 0, 0)
Else
r.Font.Color = RGB(255, 255, 255)
End If
End Sub

2a opción:
Sub colorin()
If ActiveSheet.Range("c1:c50").Value < 1 Then
ActiveSheet.Range("c1:c50").Font.Color = RGB(255, 0, 0)
Else
ActiveSheet.Range("c1:c50").Font.Color = RGB(255, 255, 255)
End If
End Sub

Creo que estoy cometiendo algun error de base y no me doy cuenta. Muchas gracias por la ayuda!