Il codice della routine verifica_h1() devi essere inserito in un ciclo For/Next e rendere la lettura del Range dinamica, riga per riga.
Qualcosa del tipo (scrivo al 'volo' quindi possono esserci errori. Da verificare...):
codice:Private Sub verifica_h1(ByVal numeroRighe As Integer) Dim i As Integer For i = 3 to numeroRighe If Range("H" & i) = Range("G" & i) Then Range("H" & i ":G" & i).Interior.Color = 255 End If Next i End Sub
P.S. Il codice va scritto utilizzando il tag CODE, NON IN ROSSO!!!
E devi usare un titolo esplicativo.
In sostanza: leggi e rispetta il REGOLAMENTO.

Rispondi quotando