I would like to create a formula to extract the word in uppercase in a cell.
You can try to use this function:
Public Function majuscules(zone)
Dim sel As Object
Dim i As Integer
For Each sel In zone
For i = 1 To Len(sel)
If Asc(Mid(sel, i, 1)) > 64 And Asc(Mid(sel, i, 1)) < 91 Then
majuscules = majuscules & Mid(sel, i, 1)
Thanks to gbinforme
for this tip.
Published by aakai1056
Latest update on October 25, 2012 at 01:15 PM by Jeff.