can i get code for sum of cells have alpha numeric value and other multiple factor

Hi,

Function SumAlpha(rng As Range) As Single
  Dim mtx, total As Single, v1, v2
  mtx = rng.Value
  For Each v1 In mtx
      For Each v2 In Split(v1, Space(1))
          If IsNumeric(v2) Then total = total + v2
      Next v2
  Next v1
  SumAlpha = total
End Function

Formula on C10 :

Formula:

=sumalpha(C2:C9)

Formula on D10 :

Formula:

=sumalpha(D2:D9)

Regards