窗体列表框文框代码问题

现复合框选择文本后，文本框没有得到工作表对应的最大非空行的行号

Private Sub ComboBox1_Change()
If ComboBox1.Text <> "" Then
    TextBox2.Text = Sheets(ComboBox1.Text).[a65536].End(xlUp).Row()
End If
End Sub

Private Sub UserForm_Initialize()
    Dim I As Integer
    For I = 1 To Sheets.Count
        ComboBox1.AddItem Sheets(I).Name    '复合框添加内容
    Next I
End Sub

Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub