проблема в настройки ComboBox1

[Vceznayka]

Как сделать, чтобы в ComboBox1 были данные с книги ewsd страницы personal ячейка B2:B5, а также после нажатие кнопки «записать» значение ComboBox1 записалась в книгу ewsd страницу personal2 ячейка С2.

Private Sub UserForm_Activate ()

dim wb As Workbook
Dim XL = As Excel.Application
Fail$ = "C:\...\ewsd.xlsx"
Set XL = New Excel.Application
Set wb = XL.Workbooks.Open(Fail)

wb.Worksheets("personal").Activatio n
N=wb.Worksheets("personal").Range(" B2:B5")
Me.ComboBox1BoundColumn=1
Me.ComboBox1.RowSource = N
.
.
.
end Sab


не помогает
За ранее благодарю

[doober]

Dim wb As Workbook
Dim XL As Excel.Application

Private Sub Command1_Click()
wb.Worksheets("personal2").Range("C2") = Combo1.Text
wb.Close (True)
XL.Quit
End Sub

Private Sub Form_Load()
Dim Rng As Range
Set XL = New Excel.Application
 Fail$ ="C:\...\ewsd.xlsx"
 Set wb = XL.Workbooks.Open(Fail)
Set Rng =wb.Worksheets("personal").Range(" B2:B5")
For n = 1 To Rng.Rows.Count
 Combo1.AddItem Rng(n, 1)
Next
End Sub

B2:B5