Ошибки в динамическом диапазоне в выпадающем списке

Question

Я перепробовал все и просмотрел форумы, но не нашел решения.

Перепробовал все закомментированные версии. Иногда это работает, но только если у меня открыт лист «данных», но если я нахожусь на Листе 1, это выдает ошибку и не будет работать.

Private Sub UserForm_Initialize()


    MultiPage1.Value = 0
    'Call ComboBox

     'Category = Worksheets("Sheet2").Range(Range("B1"), Range("B1").End(xlDown)).Address
     'ComboBox1.RowSource = Worksheets("data").Range(Range("A1"), Range("A1").End(xlDown)).Address
     'ComboBox2.RowSource = Sheet2.Range(Range("B1"), Range("B1").End(xlDown)).Address

     'Worksheets("data")


    ' Add array to combobox
    ComboBox1.List = Sheet2.Range("A1:A7").Value


    ' Set the first item in combobox
    'ComboBox1.ListIndex = 0
    'ComboBox2.ListIndex = 0

End Sub

Answer 1

Используйте что-то вроде этого:

With Worksheets("data")
    ComboBox1.List = .Range(.Range("A1"), .Range("A1").End(xlDown)).Value
End With 

В опубликованных вами примерах вы имеете неквалифицированные ссылки Range(), которые по умолчанию указывают на ActiveSheet