Quote Originally Posted by davesexcel View Post
Try These
TextBox1 = Format(TextBox1, "dd/mm/yy")
Range("C1") = Format(TextBox1, "dd/mm/yy")
Range("D1") = Format(TextBox1, "[$-409]mmmm d, yyyy;@")
Hello Dave

I have tried your code (reproduced below)

Private Sub txtBookingdate_Change()
txtBookingdate = Format(txtBookingdate, "dd/mm/yy")

End Sub

but find it returns the date 30/12/1899 plus the first digit I enter. What am I doing wrong? txtBookingdate is the name of the text box in my UserForm.

Thanks for your speedy response on Friday.

Terry Wingfield