在使用函数sum进行求和的时候，发现单元格中如果存在错误值，取和结果就会显示错误值，于是我想自定义一个函数，使其显示求和结果，而忽略错误值！

这个自定义函数只有一个参数，是单元格range类型的参数。
欢迎大家多提意见！
Function SumNotErr(rg As Variant) As Double
Dim rng As Range
Dim cell As Range

SumNotErr = 0
If TypeName(rg) = "Range" Then
For Each rng In rg.Areas
    For Each cell In rng.Cells
        If IsNumeric(cell.Value) Then
             SumNotErr = SumNotErr + cell.Value
        End If
    Next cell
Next rng
End If

Set rng = Nothing
Set cell = Nothing
End Function