try...
(ActiveCell.Offset(0,3).Value = Format(ActiveCell.Offset(0,3).Value),
"dd-mm-yy"))
HTH,
--
Gary Brown

If this post was helpful, please click the ''Yes'' button next to ''Was this
Post Helpfull to you?''.


"news.libero.it" wrote:

I have a form that on load take a date (dd-mm-yy)) from a cell
(TextBoxDate.Value = ActiveCell.Offset(0,3).Value) and put it in a TextBox.
If i change the date in the form and update the original cell
(ActiveCell.Offset(0,3).Value = TextBoxDate.Text) i loose the cell's
format and the pivot table related to it stop to work.

Any ideas?

Thanks,
Andrea.