UserForm TextBox1 value equals WS cell value

[Big Lar]

What am I missing? TextBox1 remains blank
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o>

</o:p>
Private Sub UserForm_Initialize()<o:p></o:p>
Dim x&<o:p></o:p>
With Sheets("Sheet1")<o:p></o:p>
  For x = 2 To .Cells(Rows.Count, "A").End(xlUp).Row<o:p></o:p>
      ComboBox1.AddItem (.Range("A" & x).Value)<o:p></o:p>
  Next x<o:p></o:p>
End With<o:p></o:p>
End Sub
_______________________________________________________
 
<o:p></o:p>
Private Sub ComboBox1_Change()<o:p></o:p>
<o:p></o:p>
Dim x&<o:p></o:p>
With Sheets("Sheet1")<o:p></o:p>
  For x = 1 To .Cells(Rows.Count, "A").End(xlUp).Row<o:p></o:p>
      If .Cells(x, "A").Value = Me.ComboBox1.Value Then _<o:p></o:p>
          Me.TextBox3.Value = .Cells(x, "T").Value<o:p></o:p>
  Next x<o:p></o:p>
End With<o:p></o:p>
End Sub

 

[MickG]

Works for me, I assume you have some values in Column "T" ??
Mick

 

[Big Lar]

This is very odd.

This works on all my other forms...and on a new "Test" UserForm in a fresh sheet.

But doesn't work on my current project. I've even created UserForm3 with one ComboBox and one TextBox...still nothing.