Sub blah()
With ThisWorkbook.Worksheets(1).Columns(1)       'any single column range, eg. Range("B3:B100")
  x = .Value
  FirstRow = .Row
  For rw = 1 To UBound(x)
    If x(rw, 1) = "Pears" Then Debug.Print rw + FirstRow - 1
  Next rw
End With
End Sub