Guru do Excel e Power BI

Bom dia!

Tenho uma planilha que está com problema na hora que eu coloco a data.
Quando eu coloco 02/06/2018 (por exemplo), automaticamente muda para 06/02/2018. É invertido o dia com o mês.
A formatação de DATA está correto, com essa formação: *XX/XX/XXXX (Português Brasil).

O problema está no código VBA abaixo (que serve para converter letras minúsculas em maiúsculas), pois quando eu tirei o código, funcionou normal.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next ' no caso de precisar deletar alguma coisa
If Not VBA.IsNumeric(Target) And Not Intersect(Target, Range("D6:G105")) Is Nothing Then Target = UCase(Target)
End Sub

Algum amigo teria como corrigir o código para funcionar corretamente a data?

Muito obrigado!

Não testei!!

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next ' no caso de precisar deletar alguma coisa
Target = UCase(Target)
End Sub

Olá meu amigo, até funciona a data, porém cai em outro problema que foi solucionado aqui no fórum. Se eu coloco o código nessa forma que me passou, a data sai certa, porém eu tenho uma coluna de valores ($) e se eu colocar número decimal (exemplo: R$ 120,50), eu perco a formatação de reais, aí fica só assim: 120,5.

Tente assim

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next ' no caso de precisar deletar alguma coisa
If Target.Column <> 19 Then
Target = UCase(Target)
End If
End Sub

Infelizmente o problema com a coluna dos valores continua o mesmo. Se eu coloco um número inteiro (exemplo: R$ 100,00) saí certinho, porém se eu coloco em decimal (R$ 100,10), fica assim: 100,1.
A data sai correto, mas muda a configuração dessa outra coluna de valores.

Aqui funcionou como desejado

Os valores digitados na coluna S mantiveram a virgula e o R$ do formato moeda.

Desculpe meu amigo, eu não manjo de programação e não havia reparado que o código tinha uma condição limitando uma determinada coluna (<>19). Eu ajustei para o meu caso (<>6) e deu certo, muito obrigado!