Ciao Gibra, ho provato il tuo codice mi genera un errore (la riga la scrivo sotto) :

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
La riga di codice mi da questo errore:
Errore di compilazione: previsto sepratore di elenco oppure )


Grazie