Hi

I would rather check if the file exists than rely on an error.

Look at this:

Sub TLPColl()

Set fs = CreateObject("Scripting.FileSystemObject")

a = fs.Fileexists(MyFile)
If a = False Then
' File don't exists in current folder
MsgBox "Kindly mention the path where the raw file is saved in Cell D5
of Summary Tab"
Exit Sub
Exit Sub

Workbook.Open Filename:="XXXX.xls"

'here are my procedure

End Sub

Regards,
Per

"Heera" skrev i meddelelsen
...
Hi,

I want a code which will exit the macro(Procedure) only and only if
there an error in the procedure.

Here is the code which i wrote but after the error message it
continues to run the next procedure and i want it to it to exit. If
there is no error it comes on the exit sub and stops the macro.

Sub TLPColl()

On error goto Jumpexit

workbook.open "XXXX"

Jumpexit:
Msgbox "Kindly mention the path where the raw file is saved in Cell D5
of Summary Tab"

Exit sub

'here are my procedure

Exit Sub

Kindly help.

Regards

Heera