Нарыл на просторах пример но что то не могу применить себе
[vba]Код
Private Sub ComboBox1_Change()
Dim xRg As Range
Set xRg = Range(Me.ComboBox1.Text)
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Set xRg = Range("Фрукт")
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
[/vba]
выдает ошибку method range of object worksheet failed
на строке
[vba]Код
Set xRg = Range("Фрукт")
[/vba]