Ayuda con macros y validacion

¡Vas a tener que programar, porque no hay funciones que te
permitan hacer esto!

Por si te sirve de base, aquí te muestro un código que te
permite resaltar los datos similares en una columna. Este
macro requiere que la lista esté ordenada, para que los
similares queden juntos, pero capturando el valor de la
celda activa, puedes modificarlo para que resuelva tu
problema.

¡SUERTE!

Private Sub Similares1()
' RESALTA SIMILARES CON COLORES
' Creado el 08/12/2003 por David García
Dim Texto1, Texto2 As String
Dim NumAreas, NumCeldas, NSelec, CColor, i, Ifila,
Icolumna As Integer
AreaCount = Selection.Areas.Count

NumAreas = AreaCount
NumCeldas = Selection.Rows.Count
NSelec = NumAreas * NumCeldas
Ifila = ActiveCell.Row
Icolumna = ActiveCell.Column

If NSelec <> 1 Then
MsgBox " Este comando no aplica a rangos.
Seleccione sólo una celda. ", vbDefaultButton1, "David
le recuerda:"
Else
Texto1 = ActiveCell.Value
CColor = 35
If Len(Texto1) > 0 Then
ActiveCell.Interior.ColorIndex = CColor
ActiveCell.Interior.Pattern = xlSolid
End If
ActiveCell.Offset(1, 0).Range("A1").Activate
i = 0
Do While i = 0
Texto2 = ActiveCell.Value
If Len(Texto2) > 0 Then
If Texto2 <> Texto1 Then
If CColor = 35 Then
CColor = 34
Else
CColor = 35
End If
End If
ActiveCell.Interior.ColorIndex = CColor
ActiveCell.Interior.Pattern = xlSolid
ActiveCell.Offset(1, 0).Range("A1").Activate
Texto1 = Texto2
Else
i = 1
Range(Cells(Ifila, Icolumna), Cells(Ifila,
Icolumna)).Select
End If
Loop

End If
End Sub

Hola a todos...
Tengo 2 hojas en un mismo libro, necesito buscar entre la
columna numero documento de las 2 hojas cuales coinciden

y

subrayar las que coincidan... y además, si no hay
elementos coincidentes, que automaticamente lleve ese
registro en particular a una tercera hoja...
DONDE PUEDO CONSULTAR ESE TIPO DE FORMULAS??????? QUE
PUEDO HACER??????

GRACIAS POR SUS TIPS...

.