Question about Proper Case

[KDS14589]

cll.Value = WorksheetFunction.Proper(cll.Value)

I use this code in several areas.

I just noticed in the data results that a letter after an apostrophe is capitalized when it shouldn’t be. (ie: Pandora’S Box-should be Pandora’s Box)

Is there a correction to the code or will I have to hand change every instance?

 

[ranman256]

use this custom function:

Public Function ProperCase(ByVal pvWord)
'vbProperCase=3
ProperCase = StrConv(pvWord, vbProperCase)
End Function

 

[KDS14589]

use this custom function:

Public Function ProperCase(ByVal pvWord)
'vbProperCase=3
ProperCase = StrConv(pvWord, vbProperCase)
End Function

it works THANKS