WorksheetFunction.Proper (Excel)

Aplica maiúscula à primeira letra de uma cadeia de texto e a qualquer outra letra do texto que venha depois de qualquer caractere que não seja uma letra. Converte todas as outras letras em minúsculas.

Proper (Arg1)

Arg1: Texto-texto entre aspas, uma fórmula que retorna texto ou uma referência a uma célula que contém o texto que você deseja colocar parcialmente em maiúscula.

Dim strArg1 As String: strArg1 = 
Dim strProper As String
strProper = WorksheetFunction.Proper(Arg1:=strArg1)