I have a column that uses to VLOOKUP to get values from a trial balance.
The same column has subtotals (SUM). I want to select only the cells with
the formula VLOOKUP so that I can copy>paste special>values leaving the SUM
formula intact.
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