Proper Case with extra rules in Excel

Question

I have used vba for Proper Case in Excel but I need to add an exception rule for it to save much manual editing. I need the first letter after \"-\" to also be Capitalized, exam

Answer 1

Here is a little VBA Function using Split wich should do the desired work:

Function properCase(str As String) As String

Dim splitStr() As String

splitStr = Split(str, "-")

Dim i As Integer

For i = LBound(splitStr) To UBound(splitStr) Step 1

    splitStr(i) = UCase(Left(splitStr(i), 1)) & Right(splitStr(i), Len(splitStr(i)) - 1)
Next i

properCase = Join(splitStr, "-")
End Function