Jnr

Try this.

Sub aaa()
  Set rng = Sheets("2008 sales").Range("A:A")
  With Sheets("2009 sales")
    lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("I8:I" & lastrow).Value = "No"
    For Each ce In .Range("A8:A" & lastrow)
      Set findit = rng.Find(what:=ce.Value, lookat:=xlWhole)
      If Not findit Is Nothing Then
        .Cells(ce.Row, "I").Value = "Yes"
      End If
    Next ce
  End With
    
End Sub
rylo