Private Sub ComboBox2_Change()
Dim rngUsed As Range, rngRow As Range, rngHit As Range
Dim arrHit() As Variant
Dim myCtrl As Control, x As Integer
Set rngUsed = ActiveSheet.UsedRange
For Each rngRow In rngUsed.Rows
Set rngHit = rngRow.Find(ComboBox2.Value)
If Not rngHit Is Nothing Then Exit For
Next rngRow
arrHit = rngRow.Value
On Error Resume Next
For Each myCtrl In Me.Controls
If TypeName(myCtrl) = "TextBox" Then
myCtrl.Value = ""
x = x + 1
myCtrl.Value = arrHit(1, x)
End If
Next myCtrl
On Error GoTo 0
End Sub