在没有.Activate的情况下选择隐藏工作表上的数据范围

Question

我通过一个隐藏的工作表("Data")填充一个组合框列表，其中存储了一些列表。

我目前选择的范围如下：

Dim arr() As Variant

Worksheets("Data").Activate

arr = Range("D2", Range("D2").End(xlDown).End(xlToRight))

cboBox.List = arr

然而，这显然激活了隐藏的工作表"Data“。如何在不选择/显示隐藏工作表情况下选择相同的范围？

我试着使用变种的.

arr = Sheets("Data").Range("D2", Range("D2").End(xlDown).End(xlToRight))

..。以避免激活工作表，但这不起作用。

我认为这与为xlDown调用"D2“范围两次，然后调用xlToRight有关，但我不知道正确的语法需要是什么。

非常感谢。

编辑:YowE3K的建议有效：

arr = Sheets("Data").Range("D2", Sheets("Data").Range("D2").End(xlDown).End(xlToRight))

Answer 1

你可以将其缩短为

arr = Worksheets("Data").Range("D2").currentregion

或者这样做

with Worksheets("Data")
    arr = .Range("D2", .Range("D2").End(xlDown).End(xlToRight))
end with