Userform TextBox changes date from dd-mmm-yyy to mm/dd/yyyy despite Format(TextBox4.Text, "dd/mm/yyyy")

[KyleJackMorrison]

Hello,

So I have TextBoxes 11-43 which returns dates from columns AJ - BP. The dates in the cells are formatted dd-mmm-yyyy.

When the Userform Initialises it runs this code:

With Me
.TextBox11.Value = Cells(ActiveCell.Row, "AJ").Value
etc....
End with

However it as soon as the date gets to 29/02/2020 the next date displays 03/01/2020, 03/02/2020.......03/12/2020.

I have a this code to change the date however it still doesn't work.

For n = 11 To 43
Me.Controls("TextBox" & n).Text = Format(Me.Controls("TextBox" & n).Text, "dd/mm/yyyy")
Next n

Any ideas?

TIA

 

[Fluff]

How about

Cells(ActiveCell.Row, "AJ").Text

 

[KyleJackMorrison]

How about

Cells(ActiveCell.Row, "AJ").Text

Yep, Thats worked like a dream haha! Thank you

 

[Fluff]

You're welcome & thanks for the feedback