spreadsheet1 a1:c100 aralığını combobox rowsourcede göstermek

[hsayar]

With ComboBox93
     .ColumnCount = 3
     .ColumnWidths = "75;40;50"
     .ListRows = "5"
     .RowSource = Spreadsheet1.Sheets(2).Range(Cells(1, 3), Cells(3, 5))
     'sonsat = Spreadsheet1.Range("a65536").End(xlUp).Row
     'D " & Cells(65536, 2).End(xlUp).Row"
End With

ben denedim başaramadım

 

[quman]

Aşağıdaki gibi çalışıyor;

Private Sub UserForm_Initialize()

Sheets(2).Range(Cells(1, 1), Cells(100, 3)).Name = "Area"

With ComboBox93
.ColumnCount = 3
.ColumnWidths = "75;40;50"
.ListRows = "5"
.RowSource = "Area"
End With

End Sub

 

[hsayar]

sayın guman alakanıza teşekkür ederim ancak ben worksheet değil spreadsheetten bahsediyorum ve başaramaıdm.