无法获取Region VBA

Question

我在下面的代码中收到错误“无法获取Region Class的CurrentRegion属性”。有人可以帮忙吗？ DEFECTS_DUMP是一个全局常量，定义为工作表名称。

Dim wbkTool As Workbook
Dim lLastRow As Long

Set wbkTool = ThisWorkbook
With wbkTool.Sheets(DEFECTS_DUMP)
    .Activate
    lLastRow = .Range("A1").CurrentRegion.Rows.Count
    'more code after this...
End With