VBA Excel - Tornando tudo maiúsculo, minúsculo, primeira letra maiúscula - Macro

Inline image 1

De fato não sou muito adepto na utilização do termo macro para as planilhas. Mas reconheço que a utilização destas conduzem milhões de usuários no mundo a conhecerem o VBA. Com isso em mente, compartilho as macros a seguir. Estas alteram as palavras contidas nas planilhas para Maiúsculas, Minúsculas, ou colocam a primeira letra como Maiúsculas...Divirtam-se! 

Sub nMaiuscula()
Dim C As Range
For Each C In Selection
Select Case C
Case Is = C
Let C.Value = UCase(C.Value)
End Select
Next
End Sub

Sub nMinuscula()
Dim C As Range
For Each C In Selection
Select Case C
Case Is = C
Let C.Value = LCase(C.Value)
End Select
Next
End Sub

Sub nCaptalize()
For Each C In Selection
Let C.Value = StrConv(C.Value, vbProperCase)
Next
End Sub


COMO UTILIZAR
1) Abra sua planilha
2) Acesse o painel de aplicações do VBA combinando ALT F11
3) Recorte e cole a macro.
4) Selecione as linas e colunas que você quer aplicar a macro
5) Execute a macro.

Referências
Tags: VBA, Excel, maiúsculo, minúsculo, Capitalizar, macro