本人刚刚开始学习VBA，公司要求做一个扫码出库的程序，我从网上摘取了一段代码但是一直提示“要求对象”，不知道是哪里出现了问题，求高手帮忙解答，多谢多谢~
'设工作表名称为“数据表”，工作表第27列为“条码”
Private Sub TextBox1_Change()
    '计算数据行的数量
    Dim rowNum As Long
    rowNum = Sheets("数据表").Range("AA" & Sheets("数据表").Rows.Count).End(xlUp).Row
    '取出工作表的数据
    Dim crr
    crr = Sheets("数据表").Range("AA1:AA" & rowNum)
    '取出当前扫描的条码
    Dim dangMa As String
    dangMa = Trim(TextBox1.Text)
    '循环所有数据，对比条码
    Dim i As Long
    For i = 1 To rowNum
        '找到了与扫描相同的条码
        If dangMa = Trim(crr(i, 1)) Then
            Sheets("数据表").Range("A" & i).Select
            Exit For
        End If
    Next
End Sub