Как осуществить поиск ячейки по её значению?

{... }
var
  Rnge: OleVariant;
  { ... }



Rnge := WS.Cells;
Rnge := Rnge.Find('Is this text on the sheet?');
if Pointer(IDispatch(Rnge)) <> nil then
  {The text was found somewhere, so colour it pink}
  Rnge.Interior.Color := clFuchsia;