Sub Main Dim mySheets() As String Dim x As Integer If Not XLS.AppInit() Then ExitSub XLS.AppVisible = True XLS.AddWorkBook XLS.AddWorkSheet "Test1" XLS.AddWorkSheet "Test2" XLS.ListWorkSheets mySheets() For x = 0 To UBound(mySheets) Debug.Print mySheets(x) 'Test2, Test1, Blad1 Next x XLS.AppClose EndSub