Converter Texto para Maiúscula Automaticamente no Excel ao Digitar

✅Site SGP: Venda de Coleção de Planilhas Excel VBA Prontas:
====================
Como converter o texto digitado no Excel para maiúscula de forma automática. Macro Excel para converter o texto para caixa alta ao digitar na planilha. Convertendo o texto de mais de uma linha Excel por vez para caixa alta automaticamente.

[CanalSGP]

MACRO EXCEL PARA COPIAR:

Public Executando As String
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Erro

Dim Linha As Double, LinhaCabecalho As Double
Dim Coluna As Double, i As Double
Dim ColunaTexto As Double
Dim LinhaInicial As Double, LinhaFinal As Double
Dim Texto As String, Area As String
Dim CelInicio As String, CelFim As String
Dim TextoArea As Variant

ColunaTexto = 2 'ALTERAR
LinhaCabecalho = 5 'ALTERAR

Coluna = Target.Column

If Coluna <> ColunaTexto Then
Exit Sub
End If

If Executando = Empty Then

Executando = "ok"

Area = Selection.Address

On Error Resume Next
TextoArea = VBA.Split(Area, ":")

On Error Resume Next
CelInicio = TextoArea(0)

On Error Resume Next
CelFim = TextoArea(1)

For i = 1 To VBA.Len(CelInicio)
If IsNumeric(VBA.Mid(CelInicio, i, 1)) Then
LinhaInicial = LinhaInicial & VBA.Mid(CelInicio, i, 1)
End If
Next i

For i = 1 To VBA.Len(CelFim)
If IsNumeric(VBA.Mid(CelFim, i, 1)) Then
LinhaFinal = LinhaFinal & VBA.Mid(CelFim, i, 1)
End If
Next i

If LinhaFinal > 0 Then

Linha = LinhaInicial

With ActiveSheet

Do

Texto = .Cells(Linha, ColunaTexto).Value

If Texto <> Empty And Linha > LinhaCabecalho Then

.Cells(Linha, ColunaTexto).Value = VBA.UCase(Texto)

End If

Linha = Linha + 1

Loop Until Linha = LinhaFinal + 1

End With

Executando = Empty

Exit Sub

End If

Linha = Target.Row

With ActiveSheet

Texto = .Cells(Linha, ColunaTexto).Value


If Texto <> Empty And Linha > LinhaCabecalho Then

.Cells(Linha, ColunaTexto).Value = VBA.UCase(Texto)

End If

End With

Executando = Empty

End If

Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "TEXTO"

End Sub