Hallo, I have two simple questions. 1. How can I close all userforms, when the program close? Sub Unload() Dim i as Integer For i = UserForms.Count To 0 Step -1 Unload UserForms(i) <<<<<<< Error ! Next i End Sub 2. How I close a program right? With the command End I get a Error in the commandline from AutoCAD (Makroname: Fileload Error ...)! Thanks. Hartmut Callies