关于采用日期的两个变量的条件语句

Question

我有一段代码，其中变量（Holdout_date）在特定单元格中占用日期，然后有一个代码块以条件为条件：如果另一个变量（lastdte）的日期等于Holdout_date则激活表（3）。但是在运行此代码时，我收到错误424（需要对象）。我如何通过这个？提前致谢

Dim lastdte As Date
Dim Holdout_date As Date
Holdout_date = Range("A13")
Range("D1048576").End(xlUp).Select
lastrow = ActiveCell.Row
lastdte = Range("B" & lastrow)
If Not lastdte Is Holdout_date Then  
Sheet(3).Activate
End If