Forms VisualBasic Script

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