Boa noite,
Experimente este código aqui:
Sub DestacarValores()
Dim rgLista As Range
Dim rgMatriz As Range
Dim cellLista As Range
Dim cellMatriz As Range
Set rgLista = Application.InputBox(Prompt:="Informe a lista que contém os valores que serão pesquisados", _
Type:=8)
Set rgMatriz = Application.InputBox(Prompt:="Informe a matriz cujos valores serão destacados", _
Type:=8)
For Each cellLista In rgLista
For Each cellMatriz In rgMatriz
If cellMatriz = cellLista Then cellMatriz.Font.Color = vbRed
Next cellMatriz
Next cellLista
End Sub
[ ]s
Adilson Soledade - MOS http://adilsonsoledade.blogspot.com/