Sum? Maybe? Still not sure what you are doing there?
Function SumCharacters(rng As Range) As Long

Dim i As Long
Dim s As String
Dim lSum As Long
Dim myCell As Range

lSum = 0
For Each myCell In rng.Cells
For i = 1 To Len(myCell.Value)
s = Mid(myCell.Value, i, 1) 'mycell.text if it's formatted
If IsNumeric(s) Then
lSum = lSum + s
End If
Next i
Next myCell

SumCharacters = lSum
End Function


Regards,
Ryan---

--
RyGuy


"TG" wrote:

ok thank you, ill give you an example as soon as I can.

"Ron Rosenfeld" wrote:

On Tue, 2 Dec 2008 16:27:01 -0800, TG wrote:

how do i turn a word into ascii code? am trying to use vlookup to look up two
words (each word or value in their proper column) to find the third which is
what am trying to find. However, Vlookup appears to only work with number..
or is there an easier way (another formula) that i can use to work with
strings?
I have been trying to figure this thing out for hours and seem to get no
where.
Please explain with some detail if you have a solution.
Your help will be highly appreciated.
TG


Your premise that "Vlookup appears to only work with number" is wrong.

VLOOKUP works with text strings, as should be apparent from reading HELP for
that function.

If you would respond to Rick's question about demonstrating what you want to
do, someone will offer a solution.

--ron