Bom dia!

Silverio,

Segue planilha anexa pra você adaptar às suas necessidades. Veja se lhe atende.
O código passou a ser:

Sub FormatarData()

UltLinha = Plan1.Cells(Rows.Count, "H").End(xlUp).Row

Range("H5").Select
FIM_LINHA = Range("H60000").End(xlDown).Row
Range("H5:H" & FIM_LINHA).Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

    For i = 5 To UltLinha
    
        Plan1.Cells(i, "H") = Format(Plan1.Cells(i, "H"), "DD/MM/YYYY")
    
    Next

End Sub

Creio que a melhor maneira de "corrigir" é utilizando a função nativa do Excel -->Texto para Colunas .
Selecione a coluna a ser "tratada" (uma coluna por vez), vá no menu superior --Dados e depois -- Texto para colunas -- -->clique em avançar duas vezes-- nessa terceira tela selecione o radiobutton "Data" e no combo ao lado o tipo de data adequado ao dado recebido(DMA -Dia Mes Ano; MDA- Ano Dia mes etcc...), clique concluir.

Rafael não deu certo, quando faz a troca do ponto por barra inverte e depois não volta.

Silvério

Qual foi a solução encontrada?
Você marcou como Resolvido uma resposta dizendo que não funcionou?????
Eu desmarquei o Resolvido, se já tiver sido resolvido, marque a resposta que realmente te atendeu e não a tua resposta.

[]s

Silverio,

Anexa sua planilha pra eu dar uma olhada.