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