The macro worked
exactly as you
posted.Btw, now i try another example again. I have
some number at worksheets. I want write  to textbox1,
and i hope, at textbox2 otomatic write some number
before a number at textbox1 match to activeworksheets
And The code  I wrote to create  is, but not working
properly.

Private Sub TextBox1_AfterUpdate()
If TextBox1.Value = Worksheets(1).Range(a1) And
Worksheets(1).Range(a5) Then
TextBox2.Value = Worksheets(1).Range(b1) And
Worksheets(1).Range(b5)

Else
TextBox2.Value = Worksheets(1).Range(c1) And
Worksheets(1).Range(c5)
End If

End Sub