View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.charting
tony h
 
Posts: n/a
Default convert letters to numbers


Sub a()
Dim str As String
Dim strA As String
Dim i As Integer
Dim rng As Range

str = LCase(InputBox("enter words"))
If str < "" Then
Set rng = Worksheets(1).Range("A1")
For i = 1 To Len(str)
strA = Mid(str, i, 1)
rng = Asc(strA) + 1 - Asc("a")
rng.Offset(1) = strA
Set rng = rng.Offset(, 1)
Next
End If
MsgBox "done"

End Sub


--
tony h
------------------------------------------------------------------------
tony h's Profile: http://www.excelforum.com/member.php...o&userid=21074
View this thread: http://www.excelforum.com/showthread...hreadid=505341