"Error while running Macro" - Urgent

[thanask]

Can anyone please help me. I am running the following macro and it throws the following error messgage.

Sub Main ()

Dim objImpApp as object
Dim objImpRep as object

On Error GoTo ErrorHandler

Set objImpApp = Createobject("CognosImpromptu.Application&quot

ObjImpApp.OpenCatalog "C:\Catalog.cat", "Creator"

Set objImpRep = objImpApp.OpenReport ("C:\Report.imr&quot
objImpRep.RetrieveAll
objImpApp.Quit

Set objImpRep = Nothing
Set objImpApp = Nothing

Final:

Exit Sub

ErrorHandler:

Resume Final

End Sub


Compiling SAMPLE.MAC
SAMPLE.MAC(27) W--2030: Label 'ErrorHandler' is missing
SAMPLE.MAC(27) W--2030: Label 'Final' is missing
2 Errors and 0 Warnings in SAMPLE.MAC

Thanks in advance,
Kumar

 

[DrSimon]

Kumar

I copied and pasted your macro and got the same. The solution is pretty simple:
You've got spaces in front of the two labels - remove them!

Happy New Year

Simon Rouse

 

[thanask]

Thanks for the help. Wish U the same.
I am still getting the same error.

Thanks,
Kumar

 

[DrSimon]

That's odd. Perhaps there are some invisible characters. Try deleting characters in front of the labels so that they move up to the previous line and then press [Return].

Failing that, delete the lines containing the labels and reenter them making sure that the label name starts at the beginning of the line and ends with the colons.

Simon Rouse

 

[thanask]

Thanks.. Got it. Some spaces before the label is creating the problem.

Thanks
Kumar