Formattazione con VBA

Ciao a tutti,
nel foglio in allegato "real", relativamente ad ogni riga (partendo dalla riga 4 fino alla riga 200) vorrei ottenere con VBA le seguenti formattazioni:
1) se il valore di ogni singola cella compresa tra AL4 E BL200 è minore o uguale a zero, colora le celle di rosso;
2) se il valore di ogni singola cella compresa tra AL4 E BL200 è compreso tra i rispettivi valori di C ed I, colore le celle di verde;
3) se il valore di ogni singola cella compresa tra AL4 E BL200 è compreso tra 1 e i rispettivi valori di C colora le celle di arancione;
4) se il valore di ogni singola cella compresa tra AL4 E BL200 è maggiore dei rispettivi valori di I colora le celle di blu;
5) se ciascuna cella tra AL4 e BL200 è vuota resta di colore bianco
La colorazione deve avvenire senza utilizzare la funzione formattazione condizionale, ma con VBA, automaticamente, e senza creazione di pulsanti.
Come si può fare?
Grazie per il supporto

>>>ma con VBA, automaticamente, e senza creazione di pulsanti.
Scusa se non usi un bottone, come si dovrà avviare il codice?

ciao a tutti,
io farei così:

sfrutterei l'evento Worksheet Activate del foglio interessato
definendo un range con l'istruzione "Set"

ci infilerei un For each Next sul range appena definito
ed all'interno del ciclo ci metterei un bel Select Case
per impostare il colore della cella in base al suo valore.

finito il ciclo,
distruggerei la variabile range con Set nome_variabile = Nothing

e alla fine come cigliegina, un bel

End Sub


Ciao
Frank