Sub UserForm_Initialize() Dim wkBook As Workbook For Each wkBook In Workbooks lstWorkbooks.AddItem wkBook.Name Next End Sub