One Userform, Multiple Fields

[begoldar]

Hi Everyone,

I have created a userform that has several text boxes that when you double-click will open a new (second) userform - has a calander function. I would like to use this SAME new userform (#2) for more than one text box. Is there a way to set it up so that only the activated textbox (on form #1), the one I double-clicked, gets the data input into it?

Right now I made 4 copies of the form #2 and had each text box on form #1 call a different copy. I want to get rid of 3 of those copies and just use one single version of #2 for all 4 text boxes. Thanks for the help!

 

[Andrew Poulsom]

This worked for me:

'General module
Public TB As Object

'UserForm1 module
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Set TB = TextBox1
    UserForm2.Show
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Set TB = TextBox2
    UserForm2.Show
End Sub

Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Set TB = TextBox3
    UserForm2.Show
End Sub

'UserForm2 module
Private Sub CommandButton1_Click()
    TB.Text = Calendar1.Value
    Unload UserForm2
End Sub

 

[begoldar]

Works perfectly! Thank you!!