another option, sums only cells with NO SUM function in them (but WILL
sum cell with formulae other than SUM)

Function sum_no_formulas(target As Range) As Double

For Each cell In target
If Not cell.Formula Like "*=SUM*" Then
sum_no_formulas = sum_no_formulas + cell.Value
End If
Next cell

End Function

HIH