Sub Main XLS.AppInit XLS.OpenWorkBook "o:\documenten\mijnwerkboek.xlsx" Debug.Print XLS.ActiveWorkBook 'MijnWerkboek.xlsx XLS.CloseWorkBook XLS.AppClose End Sub