VBA中很简单的一个问题 :ubound 数据类型不匹配

Option Base 1
Public Sub 测试()
Dim arr
Dim x
Set arr = ActiveSheet.UsedRange
x = UBound(arr, 1)
MsgBox x
End Sub

运行后 x = UBound(arr, 1) 这一行提示说数据类型不匹配 我搞不懂怎么就不匹配了?

相关了解……