EXCEL 中VBA 的comobox 应用单元格数据作为LIST，我写了这么一段代码，为什么不能用

Snrteeq

我写的代码


刚写完代码的时候还能使用，保存退出再进就不行了，求指教

Snrteeq

Private Sub UserForm_Initialize()
Dim i As Integer, r As Integer
r = Range("A65536").End(xlUp).Row
For i = 2 To r Step 1                                                                              '自动引用科目表单元格内容
    UserForm2.ComboBox3.AddItem (Sheet3.Cells(i, 1).Value) & (Sheet3.Cells(i, 2).Value)
    UserForm2.ComboBox4.AddItem (Sheet3.Cells(i, 1).Value) & (Sheet3.Cells(i, 2).Value)
    Next i
     ComboBox6.List = Array("1", "2", "3", "4")
End Sub