Excel Ao abrir Arquivo XLS (Via VBA) Excel Perde formatação de Data

[luizdeath]

Pessoal,

 

Estou com um problema ao abrir um arquivo XLS via VBA (Código abaixo), onde a coluna com a data fica formatada no modelo EUA (MM/DD/AA), alguém sabe o que posso fazer para ajustar isso?

Dim Pasta As String
Pasta = ThisWorkbook.Path

Workbooks.Open Filename:=Pasta & "\" & "Abs.xls"
Range("A2:AH10000").Copy
Workbooks("Ajuste.xlsm").Activate

 

Quando ele abre o arquivo XLS perde a formatação acaba colando errado na outra planilha

 

[AfonsoMira]

@luizdeath Boas,

 

Em que coluna está a data?

Obrigado!

[luizdeath]

Opa, @AfonsoMira

Coluna B