O código deverá ser inserido na planilha que será executada.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'Letras Maiusculas Colunas 1 a 4

If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then

If Not Target.Text = UCase(Target.Text) Then

Target = UCase(Target.Text)

End If

End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'Letras Minusculas Coluna 1 a 4

If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then

If Not Target.Text = LCase(Target.Text) Then

Target = LCase(Target.Text)

End If

End If

End Sub