To Close Active file in CATIA by Macro

Program

For Active Window/file close in CATIA by Macro.
*Atleast one must be open.

Sub main()

CATIA.ActiveDocument.Close

End Sub