Sub CATMain()

        CATIA.StartCommand("Apply the Entire Scene")

End Sub