Macro que haga Distincion positivos negativos y ceros en celda

[Crashman]

Hola amigos. una ves mas aca solicitando su ayuda resulta que tengo una hoja de excel donde una columna contiene datos numeros positivos - negativos y Ceros (nulos) donde yo necesito que cada uno tenga un color distingo algo asi

positivos = Verde
Negativos = Rojo
Ceros = Verde

de aqui puedo hacer el bucle pero no se como hacer la distincion entre positivos o negativos o ceros?
algo asi:
Sub existencia()

While Workbooks("Datos").Worksheets("Hoja1").Cells(celda ).Value <> ""
celda = Cells(1,3).value
IF celda = (Numero positivo o negativo o cero?) then
End Sub

???? no se si me explico bien

[jsegundo]

Puedes usar la funcion SIGNO() donde si es positivo de da 1, 0 = 0 y -1 si es negativo y pues ya dependiendo de el valor le asignaras un color a la celda, no?

[jsegundo]

lo acabo de ver en este post
http://www.forosdelweb.com/f90/duda-funcion-si-excel-393429/

es un formato condicional

Saludos!