Code to fill ActiveX text box with value from UserForm text box

[g8r777]

I have a workbook with a number of worksheets. I have created a UserForm that has a few text boxes in it. Upon exiting this UserForm using the OK button, the data entered into the text boxes is put into cells on one worksheet.

I have another worksheet that has a number of ActiveX text boxes. I want the code that runs when exiting the UserForm using the OK button to also fill a specific ActiveX text box with the data entered in a particular text box in the UserForm.

I have tried the following code:

With Sheet3.TextBox1.Text = DiscReq.TextBox1
    
End With

This code does nothing. No error. No change to the text box on sheet 3.

Can anyone help?

[coreytroy]

Private Sub CommandButton1_Click()
Sheet3.Range("A1").Value = Me.TextBox1.Value ' <=== modify sheet range to suit
Sheet3.TextBox1.Value = Me.TextBox1.Value ' <=== modify sheet and Active X textbox number/name to suit
Unload Me
End Sub

Works for me.