Merge en excel

[Crashman]

este codigo te pondra en verde los registros que se encuentren en las dos hojas...suponiendo que los datos se encuentren en A1
dentro de los parentesis el numero anterior a la coma es la celda y el posterior es columna. coordenadas x, y

Código:

Sub busqueda_encuentra()
Dim celda_hojaA As String
Dim celda_hopaB As String
Dim hojaa As String



Sheets(1).Select
celda_hojaA = 1
celda_hojaB = 1
Do While Cells(celda_hojaA, 1).Value <> ""

hojaa = Cells(celda_hojaA, 1).Value
        Sheets(2).Select
        
        Do While Cells(celda_hojaB, 1).Value <> ""
            If Cells(celda_hojaB, 1).Value = hojaa Then
                    Cells(celda_hojaB, 1).Select
                    Selection.Font.ColorIndex = 43
             Sheets(1).Select
             Cells(celda_hojaA, 1).Select
                    Selection.Font.ColorIndex = 43
             End If
        celda_hojaB = celda_hojaB + 1
        Loop
If ActiveSheet.Application <> 1 Then
Sheets(1).Select
End If
celda_hojaA = celda_hojaA + 1
celda_hojaB = 1
Loop
End Sub