.Activateなしの隠しシート上のデータの範囲の選択

Question

私はいくつかのリストが保存されている隠れたワークシート（ "データ"）を介してコンボボックスのリストを設定しています。

以下のように私は現在、範囲を選択します。しかし、これは明らかに隠されたシート「データ」を活性化し

Dim arr() As Variant 

Worksheets("Data").Activate 

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

cboBox.List = arr 

。どのように非表示のシートを選択/表示せずに同じ範囲を選択できますか？

私はシートをアクティブにすることを避けるために...

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

...の変異体を使用してみましたが、それは動作しません。

「D2」の範囲をxlDownとxlToRightの2度と呼ぶのと同じだと思いますが、正しい構文が必要なのは解決できません。

多くのありがとうございます。

EDIT：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