Prevent proper case of letters following a comma

[tkroper]

Hi eveyone!

When using the PROPER function, it capitalizes the first letter in a text string and any other letters in text that follow any character other than a letter, and converts all other letters to lowercase.

However, if A1 contains the text "2-cent's worth"; then =PROPER(A1) will return the following result: "2-Cent'S Worth".

Is there a way to prevent the PROPER function from capitalizing the first letter following the apostrophe?

Thank you!

 

[epicode]

I am using the following code to bypass the issue (sharing here for anyone with same issue)

Public Function ProperCase(ByVal str As String) As String

Dim words As Variant
Dim i As Long
Dim word As String

words = Split(str, " ", , vbTextCompare)

For i = 0 To UBound(words) - 1
words(i) = UCase(Left(words(i), 1)) & LCase(Mid(words(i), 2))
Next i

ProperCase = Join(words, " ")

End Function