Olá, Tenta assim (não testei OK)

Sheets("Registro10").Cells(j, 8) = Format(Mid(linha, 108, 8), "dd/mm/yyyy")

Visite meu blog: programacaopassoapasso.wordpress.com

Bom dia Edivan

Obrigado pela ajuda, mas deu um erro: "Erro em tempo de execução 6 - Estouro"

você sabe como soluciona?

Obrigado

davison, a instrução que o Edivan passou está correta, o ideal seria você anexar um modelo simplificado para analise dos dados que tem.

Boa tarde Mauro

Segue em anexo Planilha e arquivo de importação.

Obrigado

Att;
Davison

Boa tarde davison,

Você enviou uma planilha com senha.

att,

Desculpe,

segue sem senha.

Obrigado

Boa tarde Davison,

Encontrei uma possível solução, de uma olhada nas linhas 141 e 147. Utilizei as funções Left e Right do VBA para extrair e organizar já no formato dd/mm/aaaa.

'OBS: Eu desativei o evento que verifica o nome do usuário quando se abre o arquivo, não esqueça de retirar os comentários.

att,

Boa tarde Bruno

ficou muito bom o código só que tem um erro na data de inicio da uma olhada para você ver o mês e dia ainda está invertido.

Obrigado

Davison,

Altere a linha da "Data Final" para essa:

Sheets("Registro10").Cells(j, 8) = _
        Left(Right(Mid(linha, 108, 8), 4), 2) _
        & "/" & _
        Right(Mid(linha, 108, 8), 2) _
        & "/" & _
        Left(Mid(linha, 108, 8), 4) 'Data Início

De qualquer forma, é um comportamento no mínimo bizarro essa data. Porque agora o código coloca o mês na frente do dia e na célula vai o dia na frente do mês.

Teste para mais e diferentes dados e verifique se o comportamento se mantém.

att,

Obrigado Bruno

Deu certinho agora.