为何无法获得表格的行数

Question

为何无法获得DataSet表格的行数？

Sub cal()
Dim x As Integer
Worksheets("DataSet").Activate
x = ActiveSheet.Range("A65535").End(xlUp).Row
Debug.Print x
End Sub