Hi,

Right click Sheet 2 sheet tab, view code and paste this in and run it

Sub stance()
Dim myrange As Range
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set myrange = Range("A1:A" & lastrow)
For Each c In myrange
If c.Text = Sheets("Sheet1").Range("F9").Text Then
c.EntireRow.Interior.ColorIndex = 4
End If
Next
End Sub

Mike

"DaveM" wrote:

Hi

How can I copy the value (Which is a number formatted in "Special Codigo
Postal") from sheet1 cell F9.

Goto sheet2 and Find that value in Column A then Highlight that Row

Thanks in advance

Dave