VBA Proper Case

Sub ConvertPropeCase()

For Each cl In Selection
    cl.Value = WorksheetFunction.Proper(cl.Value)
Next cl

End Sub

or per YasserKhalil's suggestion

Sub ConvertPropeCase()

For Each cl In Selection
    cl.Value = StrConv(cl.Value, vbProperCase)
Next cl

End Sub