Auto highlight the text in a TextBox on a userform

[ttt123]

When I have a userform displayed, I want a specific textbox to be activated in that userform, I want its default value to be "yyyy/mm/dd" and I want that default value to be highlighted so that the user can just type over it without having to delete the default value.

Right now, I can get the default value fine by changing the .Value property of the textbox, I can get it to be auto-selected by switching it to the first tab index, but what I can't figure out how to do is to auto-highlight the text in the textbox. When I press the tab button to move to the next textbox, all the text in that box is automatically highlighted but I just can't figure out how to do it on the first textbox.

Any help would be greatly appreciated,
Thanks,
Taylour

 

[Greg Truby]

Private Sub TextBox1_Enter()
    With Me.TextBox1
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

Private Sub UserForm_Initialize()
    With Me
        .TextBox1 = "abcd"
        .TextBox2 = "efgh"
        .TextBox3 = "wxyz"
    End With
End Sub

 

[Andrew Poulsom]

Try:

Private Sub UserForm_Initialize()
    With TextBox1
        .Text = "yyyy/mm/dd"
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

 

[ttt123]

Thanks guys, it works great.
-Taylour