得保证Listbox中有选择项,不为空。窗体代码这样写就可以了。Private Sub UserForm_Activate()Dim i As IntegerFor i = 2 To 13 ListBox1.AddItem Sheets(i).NameNext iListBox1.ListIndex = 0End Sub