这句代码错在哪？有请朋友帮忙

窗体中有两个文本框 txt1  和  txt2 ，我想在txt1中输入A列的一个数，在txt2中输出对应的数，下面代码错在哪？
Private Sub txt1_Change()
Dim i As Integer
For i = 2 To Sheet1.Range("A65536").End(xlUp).Row
On Error Resume Next
  If Sheet1.Range("A" & i).Value = txt1.Value Then
     txt2.Value = Sheet1.Range("B" & i).Value  
End If
Next
End Sub

谢谢！

[ 本帖最后由 qianlan 于 2011-8-12 15:43 编辑 ]

有请高手帮忙看一下！在线等……谢谢

If Sheet1.Range("A" & i) & ""  = txt1.Value Then  这样可以吗？

行啊！太谢谢了！