0 Then mysum = mysum +" name="description">

In which programme this VBA can be writen: Function Tryme(mycell) mylen = Len(mycell) For j = 1 To mylen mytest = UCase(Mid(mycell, j, 1)) If InStr(1, "AIJQY", mytest) > 0 Then mysum = mysum + 1 ElseIf InStr(1, "BKR", mytest) > 0 Then mysum = mysum + 2 ElseIf InStr(1, "CGLS", mytest) > 0 Then mysum = mysum + 3 ElseIf InStr(1, "DMT", mytest) > 0 Then mysum = mysum + 4 ElseIf InStr(1, "EHNX", mytest) > 0 Then mysum = mysum + 5 ElseIf InStr(1, "UVW", mytest) > 0 Then mysum = mysum + 6 ElseIf InStr(1, "OZ", mytest) > 0 Then mysum = mysum + 7 ElseIf InStr(1, "FP", mytest) > 0 Then mysum = mysum + 8 End If Next j Tryme = mysum End Function
If you are facing any programming issue, such as compilation errors or not able to find the code you are looking for.
Ask your questions, our development team will try to give answers to your questions.