Refer to Attachment, there is some cell are blanks
i am more interested in trouble shooting, when i turn in simple VBA its working
Adeel
Code: Select all
Function vccb(a As Range) As Long
p = Cells(Rows.Count, 1).End(3).Row
For i = 2 To p
For ii = 1 To Len(a)
x = x & Asc(Mid(a, ii, 1)) - 64
Next ii
vccb = x
x = ""
Next i
End Function