Dim cell as Range

With Worksheets("Sheet2")
for each cell in intersect(.Columns(6), .UsedRange).SpecialCells(xlFormulas)
if Instr(1,cell.Formula,"vlookup",vbTextCompare) then _
Cell.Formula = Cell.Value
Next
End With

--
Regards,
Tom Ogilvy


"Tom Ogilvy" wrote in message
...
Vlookup returns a string. It doesn't return a reference to a cell. You
can
use Match to return an offset into a range, then use that to select a
cell.

--
Regards,
Tom Ogilvy

"Muusbreath" wrote in message
...
Is it possible to select all cells in a range with a particular formula,
for
instance, VLOOKUP?