Click inside userform textbox to enter date

[OfficeUser]

Is it possible to click inside a userform textbox and populate using todays date? Thanks.

 

[Fluff]

How about

Private Sub [COLOR=#ff0000]WghtBx[/COLOR]_enter()
[COLOR=#ff0000]WghtBx [/COLOR]= Date
End Sub

Changing the bits in red to match the name of your textbox. This needs to go in the UserForm module

 

[igold]

You could try one of these two. With the TextBox1_Change, if you click in the box and hit any key the date will come up. The Double Click says it all...

Private Sub TextBox1_Change()
    Me.TextBox1.Value = Date
End Sub

or

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Me.TextBox1.Value = Date
End Sub

 

[OfficeUser]

Thanks for the solutions, all of them worked.

 

[igold]

Great! Glad we could help. Thanks for the feedback!

 

[Fluff]

Great! Glad we could help. Thanks for the feedback!

Agreed