Originariamente inviato da nicola75ss
Se ho capito bene dovrebbe bastare una sub di questo genere dove al posto di 2 metterai la prima riga da cui partono i tuoi valori e al posto di 10 l'ultima riga.
Sostituisci anche Foglio1 col nome del tuo primo foglio con cui confrontare tutti gli altri.

codice:
Sub confronta()
For i = 2 To 10

    For Each foglio In ThisWorkbook.Sheets
        If foglio.Name <> "Foglio1" Then
            If Sheets("Foglio1").Cells(i, 1).Value = foglio.Cells(i, 1).Value Then
                Sheets("Foglio1").Cells(i, 1).Interior.ColorIndex = 3
                foglio.Cells(i, 1).Interior.ColorIndex = 3
            End If

        End If
    Next foglio
Next i
End Sub
Ci deve essere qualche errore... fa le celle rosse a prescindere dal valore