Ayuda con el siguiente macro

Tengo el siguiente macro y funciona perfecto pero quisiera que los valores que no consigue de la hoja 1 en la hoja 2, los cambiara de color o los colocarara en la hoja tres, por que hasta los momentos solo me avisa que el valor no se encuentra pero no queda identificado, si alguien quiere le envio el archivo para que vea a que me refiero al detalle.
Sub Buscar_Valor()
' buscar cada valor en una selección
For Each celda In Selection
Sheets("hoja2").Activate
Set resultado = Cells.Find(celda.Value, After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:=False)
'comprueba si la búsqueda ha devuelto algún valor
If resultado Is Nothing Then
MsgBox "El color " & celda.Value & " no se ha encontrado"
Cells.Find(celda.Value, After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
MsgBox "Encontrado"
End If
Next
End Sub