Sum Of The Digits Of Numeric Value In A Cell Range

[snb]

alternative; a UDF

e.g. in B5:

=snb_001(A5)

Function snb_001(y)
  snb_001 = Evaluate(Replace(StrConv(y, 64), Chr(0), "+") & "0")
End Function

[Zaigham]

It is just amazing for me, as I was not sure for a single solution.
Thank you very much.