Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Add names of all open workbooks to the list box

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