没有编译错误

Question

当我执行Test1时，当代码遇到Test2时，我收到消息Run time error 13, Type mismatch - 这是我期望的。让我感到惊讶的是，当我编译时，我没有收到argument type mismatch错误消息。我一定错过了什么，有人可以让我直截了当吗？

Sub Test1()
  Dim w As Worksheet
  Set w = ActiveSheet
  Test2 w
End Sub

Sub Test2(r As Range)
'do something
End Sub