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