Boa noite amigo... não sei se entendi bem seu problema, más gostaria de esclarecer que boas práticas nos levam a formatar a célula antes de atribuir um valor a ela. Desta forma, aconselho que formate a célula antes de atribuir algum valor ... exemplo: 1º Me. txtData.Value = Format (Plan2.Range("b2").Value, "dd/mm/yyyy") 2º Plan2.Range("b2").numberformat = "dd/mm/yyyy"" 3º Plan2.Range("b2").Value = CDate (txtData.Text) E a mesma quedtão deve ser para números ... exemplo: 1º Me. txtValor.Value = Format (Plan2.Range("b3").Value, "##,###.00") 2º Plan2.Range("b3").numberformat = "##,###.00"" 3º Plan2.Range("b3").Value = CDate (txtValor.Text) Espero ter ajudado ... abs., Paulo Eduardo Pereira www.dpnet.inf.br