Sub Main Dim strName As String XLS.AppInit strName = XLS.AddWorkBook() XLS.AddWorkSheet "MijnBlad" Debug.Print XLS.ActiveWorkBook 'Map1 Debug.Print XLS.ActiveSheet 'MijnBlad XLS.CloseWorkBook XLS.AppClose End Sub