Paul,

Sub TryNow()
Dim myCell As Range
Dim myFind As Range

With Worksheets("Sheet2")
For Each myCell In .Range(.Range("G4"), .Range("G4").End(xlDown))
Set myFind = Worksheets("Sheet1").Range("G:G").Find(myCell.Valu e)
If Not myFind Is Nothing Then myCell(1, 2).Value = "X"
Next myCell
End With

End Sub

You could also do this with a formula in Column H....

HTH,
Bernie
MS Excel MVP

"pauluk " wrote in message
...
This is what am looking to do,

To compare data or two sheets

So say sheet2 G4=exceltip

and in sheet1 it then searches though G:G finds that cell G100 of sheet
1 matches then it places X in cell H4 of sheet2

And Does this until Cell G# is empty

Thanks
Paul


---
Message posted from http://www.ExcelForum.com/