Si lo so ma a me serve che colori tutta la riga dell'intervallo. In questo modo. Che ne dite?
Sub FormattaCompreso()
Range("A2:E10000").Interior.ColorIndex = 0
indi = 2 'riga partenza
ComVal = 0 'valore iniziale della cella
CONDI1 = Range("J1") 'condizione 1
CONDI2 = Range("J2") ' condizione 2
'eseguie il ciclo finchè il valore della cella
'della colonna A non è vuota. Quando la cella
'è vuota esce dal ciclo.
Do Until Range("D" & indi) = ""
'Condizione: se il valore della cella è compresa
'tra il valore della cella C1 e la cella C2
'colora di rosso la cella altrimenti colora di bianco
'e aumenta il valore "indi" di 1 (scalando di cella)
If Range("D" & indi).Value >= CONDI1 And _
Range("D" & indi).Value <= CONDI2 Then
'assegna il valore della cella
ComVal = Range("D" & indi).Value
Range("A" & indi & ":" & "E" & indi).Interior.ColorIndex = 8
Else
Range("A" & indi & ":" & "E" & indi).Interior.ColorIndex = 0
End If
indi = indi + 1 ' aumenta di una riga
Loop 'esci dal ciclo
End Sub