On Aug 16, 1:47*pm, robzrob wrote:
On Aug 16, 1:27*pm, "JP Ronse" wrote:





Hi,

Try

Range("B6") = CDate(Me.TextBox1.Text)

Wkr,

JP

"robzrob" wrote in message

....

I've got this code line: || Worksheets("Leave").Range("B6").Value =
UserForm1.TextBox2.Value || to prompt the user for a date which will
be input in UK mode and which I want to appear in B6 in UK mode, ie dd/
mm/yy. *It's putting it in B6 ok, but wrongly, eg if I type in
10/08/09 (10 AUG 09), 08/10/09 appears in B6.- Hide quoted text -

- Show quoted text -

Sorry, it didn't like that, wouldn't run. *I tried it 2 ways:
replacing the whole of
Worksheets("Leave").Range("B6").Value = UserForm1.TextBox2.Value with:

Range("B6") = CDate(Me.TextBox1.Text)

and also replacing part of my current line with yours like this:

Worksheets("Leave").Range("B6") = CDate(Me.TextBox1.Text)- Hide quoted text -

- Show quoted text -

Ah - just seen it - should be TextBox2 - not TextBox1 ! ! ! ! ! Will
re-try.