Macro para converter maiúsculas e minúsculas

COMO POSSO CRIAR UMA MACRO QUE CRIE UMA FUNÇÃO QUE QUE CONVERTE AS PRIMEIRAS LETRAS DAS PALAVRAS EM MAIÚSCULA, JÁ QUE NO EXCEL TEM O PROPERCASE, O LIBRE SÓ TEM UCASE E O LCASE

[Sub Propercase()
     ' Loop to cycle through each cell in the specified range.
   For Each x In Range("A11:A130")
      ' There is not a Proper function in Visual Basic for Applications.
      ' So, you must use the worksheet function in the following form:
      x.Value = WorksheetFunction.Proper(x.Value)
   Next
End Sub]

=> http://schiavinatto.com/escritorioaberto/?p=226 <= Vide no link ao lado artigo de Noelson A. Duarte, publicado na Revista BrOffice.org ZINE no.9 de Nov/2009, no final da matéria tem link para baixar a extensão.

Já existe a função PRI.MAIÚSCULA.