Colorazione automatica/dinamica cella a seconda del suo valore

Buongiorno,

è tutto il giorno che cerco di far colorare automaticamente una cella di verde piuttosto che di rosso in base al valore, ma non ci riesco in nessun modo! Perchè non funziona?
Help... grazie 2000

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Tabelle").Select
If Range("N16").Value > N19 Then
Range("N16").Select
With Selection.Interior
.ColorIndex = 3 ' colore rosso
.Pattern = xlSolid
End With
End If
If Range("N16").Value <= N19 Then
Range("N16").Select
With Selection.Interior
.ColorIndex = 4 ' colore verde
.Pattern = xlSolid
End With
End If
End Sub

Saluti

Andrea

ciao

chiediti cosa vuol dire per il vba >N19

---

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Tabelle").Select
If Range("N16").Value > Range("N19").Value Then
Range("N16").Select
With Selection.Interior
.ColorIndex = 3 ' colore rosso
.Pattern = xlSolid
End With
Else
If Range("N16").Value <= Range("N19").Value Then
Range("N16").Select
With Selection.Interior
.ColorIndex = 4 ' colore verde
.Pattern = xlSolid
End With
End If
End If
End Sub

---

ciao

intanto saluto federico

dovendo fare due semplici operazioni possiamo ridurre tutta la sub()

---

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Tabelle").Select
If Range("N16").Value > Range("N19").Value Then
Range("N16").Interior.ColorIndex = 3 ' colore rosso
Else
Range("N16").Interior.ColorIndex = 4 ' colore verde
End If
End Sub

---

Grazie locate e grazie federico!