Need help...vlookup "type mismatch"

[jeremy.haynie]

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?

 

[Guest]

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