Olá a todos!
Baixei uma planilha para Cadastro de Fornecedores. Bastante simples e útil. Porém estou tentando fazer algumas melhorias, mas infelizmente não estou conseguindo.
São:
Gostaria de organizar para que ao digitar informações fosse padronizado a escrita.
Para os ítens:
Contato no fornecedor / Atividade / Empresa ou Pessoa / Endereço / Bairro Cidade / Estado. função Pri Maiúscula.
Usei a função abaixo, mas não consegui fazer funcionar.
MACRO PRI_MAIUSCULA

Function Nome_maiusculo(Texto)

Dim Vpalavra, inicio, termino, Wresultado
inicio = 1
Texto = LCase(Texto) & " "

Do Until InStr(inicio, Texto, " ") = 0
   termino = InStr(inicio, Texto, " ")
   Vpalavra = Mid(Texto, inicio, termino - inicio)
   inicio = termino + 1

   If Vpalavra <> "de" And Vpalavra <> "da" And Vpalavra <> "do" And _
      Vpalavra <> "das" And Vpalavra <> "dos" And Vpalavra <> "a" And _
      Vpalavra <> "e" Then
      Vpalavra = UCase(Left(Vpalavra, 1)) & LCase(Mid(Vpalavra, 2))
   End If
   Wresultado = Wresultado & " " & Vpalavra
Loop

Nome_maiusculo = Trim(Wresultado)

End Function

Para e-mail: tudo minúsculo
Para números de telefones padrão: xxx - xxxxx-xxxx

Se conseguir fazer dessa forma, acredito que a planilha ficará bastante organizada e será bastante funcional.

Conto com o conhecimento e atenção de vocês do fórum.

Grato

Luciano