Hello!

I have a code that i cannot get to work properly. Please note I have almost ZERO experience with Macros/ VBA and know very little terminology. I do know a little bit and have been able to figure out little things here and there.

Here is what i am trying to do.

I have a drop-down list in cell C2 in the "Input" sheet that has the option for value "Good Faith Estimate" or "Lump Sum Quote".
I have a text box in the "Quote" sheet that is named "TextBox6".
I have 2 cells (J16 and J18) in the "Wages & Rates" sheet that have some text in them.
I would like for "TextBox6" to populate with the text in cell J16 on the "Wages & Rates" sheet if C2 in "Input" sheet has the value "Estimate" selected from the drop-down.
And
I would like for TextBox6 to populate with the text in cell J18 on the "Wages & Rates" sheet if C2 in "Input" sheet has the value "Lump Sum" selected from the drop-down.

I have been able to get this code to work if i wanted to populate the values into a cell, however, i want to populate it into a text box instead.

Please note that i have the code placed into the Sheet1 (Input). Here is my code below:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
'My Script
If Not Intersect(Target, Range("C2")) Is Nothing Then
If Target.Value = "Estimate" Then Sheets("Quote").TextBox6.Value = Sheets("Wages & Rates").Range("J16").Value
If Target.Value = "Lump Sum" Then Sheets("Quote").TextBox6.Value = Sheets("Wages & Rates").Range("J18").Value
End If

'Different script
If Target.Address <> "$C$3" Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim wsI As Worksheet, wsQ As Worksheet, x As Long
'limit change monitoring to C3
Set wsI = Sheets("Input")
Set wsQ = Sheets("Quote")
x = Target.Value * 17
With wsI
.Unprotect
.Rows("8:1027").Hidden = True
If x > 0 Then .Cells(8, 1).Resize(x).EntireRow.Hidden = False
.Protect
End With
With wsQ
.Unprotect
.Rows("9:1028").Hidden = True
If x > 0 Then .Cells(9, 1).Resize(x).EntireRow.Hidden = False
.Protect
End With
Application.ScreenUpdating = True
End Sub
Thank you very much! I can attach the file if need be, i just need some guidance on what you think.