Hi drlex, i am enclosing the sample
Sub Main()
Dim objImpApp As object
Dim objImpRep As Object
Set objImpApp = CreateObject("CognosImpromptu.Application")
objImpApp.Visible 1
objImpApp.OpenCatalog _
"c:\cognos\samples\outdoors.cat","Creator",,,,1
Set objImpRep = _...