Hi

Howard,

Please add code tags while posting code. This time I added for you.

this line
Code:
Evaluate("sumproduct(--(abs(" & myRange.Address(external:=1) & ")>0.0001)," & myRange.Address(external:=1) & ")")
should write as
Code:
If Evaluate("sumproduct(--(abs(" & myRange.Address(external:=1) & ")>0.0001)," & myRange.Address(external:=1) & ")")  Then
also add an End If after Next i