One way:

Dim rCell As Range
For Each rCell In ActiveSheet.UsedRange.Cells
If UCase(Left(rCell.FormulaR1C1, 8)) = "=VLOOKUP" Then rCell.Value =
rCell.Value
Next rCell

HTH

"Steph" wrote:

Hello. Is there a way to have vba scan an entire sheet (activesheet) and
hardcode any cells that have a VLookup formula in the cell? I was going to
just hardcode the entire sheet, but i also have a lot of sum formulas that I
can't have hardcoded. Thanks.