For Each cell In Selection
if not iserror(cell) then
If cell.Value 0 Then _
cell.formula = cell.Value
end if
Next cell


--
Regards,
Tom Ogilvy


" wrote:

So...my goal is to write a macro that will copy-paste values on all
cells in a selection that a vlookup returns a value 0...and leave
the formula in the rest.

I get a type mismatch with the following code because of the vlookup
formula (even when a value is returned)

For Each cell In Selection
If cell.Value 0 Then
cell.Copy
cell.PasteSpecial Paste:=xlValues
Next cell
Application.CutCopyMode = False



any suggestions?