Sub Main Dim myBooks() As String Dim x As Integer If Not XLS.AppInit() Then ExitSub XLS.AppVisible = True XLS.AddWorkBook XLS.AddWorkBook XLS.ListWorkBooks myBooks() For x = 0 To UBound(myBooks) Debug.Print myBooks(x) 'Map1, Map2 Next x XLS.AppClose EndSub