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