Saudações! Para formatar use: Código: chWorksheet:Range(Celula):NumberFormat = "d/m/aaaa". Espero que ajude! Abraços, William Rodrigues.