Eliminazione righe da fogli diversi in contemporanea

[salper]

Ciao a tutti rieccomi ancora con un altro quesito
Supponiamo di avere un foglio di exel dove in una colonna sono stati inseriti dei numeri di progressivi di assegni .
Supponiamo di avere inserito gli stessi dati in un altro foglio (stesso file) ma su celle diverse, cioè ad esempio "cella A1 foglio1 il numero assegno 123456 , stesso numero (123456) ma su cella A50 foglio 2.
DOMANDA DA 1.000.000 DI $: E' possibile eliminare una riga contenente quei dati dal primo foglio e contemporaneamente anche dall'altro foglio anche se collocate su cella diversa , senza dover andare a ricercare i valori corrispondnti nel secondo foglio ed eliminarli manualmente in modo da non avere possibilita di errore ? Spero di essere stato piu chiaro possibile.
Fiducioso del vostro ineguagliabile aiuto Vi inngrazio anticipatamente.

[Flash30005]

Questa macro elimina le righe che trova uguali sia nel Foglio1 sia nel Foglio2 (rinomina i fogli nella macro se diversi)

Codice: Seleziona tutto

Sub EliminaR()
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
For RR1 = UR1 To 2 Step -1
Na1 = Ws1.Range("A" & RR1).Value
    For RR2 = UR2 To 2 Step -1
        If Na1 = Ws2.Range("A" & RR2).Value Then
        Ws1.Rows(RR1).Delete
        Ws2.Rows(RR2).Delete
        End If
    Next RR2
Next RR1
End Sub

Ciao