Public Function Numbers_In_Range(Data_Range As Range) As Long
Dim r1 As Long
Dim l1 As Long
Dim rth_Member As String
r1 = 0
Numbers_In_Range = 0
For r1 = 1 To Data_Range.Columns.Count
rth_Member = CStr(Data_Range(1, r1))
For l1 = 1 To Len(rth_Member)
Numbers_In_Range = Numbers_In_Range + Mid(rth_Member, l1, 1)
It needs to be inserted in a Module
and can be called by Numbers_in_Range(A1:A10)
- assuming your digits are in the range A1:10. Thanks
pgc - exactly what I needed.
xld - something I did not think of and using in my analysis.
Kap - your suggestions will be added to my reference library for future reference.
Thank you all for your help, greatly appreciated.