Sub Main If Not XLS.AppInit() Then Exit Sub XLS.AppVisible = True XLS.AddWorkBook XLS.AddWorkBook XLS.AddWorkBook Debug.Print XLS.WorkBookCount '3 XLS.AppClose End Sub