On error

[kashyap]

Hi Have have below code, but even if there are no errors its displaying err:


Sub ref()
On Error GoTo err

Application.ScreenUpdating = False

ActiveSheet.Unprotect Password:="htc"

ActiveWorkbook.UpdateLink Name:= _
"C:\Documents and Settings\OpsTL1\My Documents\May\Misc\Master-April.xls", _
Type:=xlExcelLinks


ActiveSheet.Protect Password:="htc"

err:
MsgBox ("not")

 

[RoryA]

You need an Exit Sub line before the err: line

 

[kashyap]

I'm getting error "Lable not defined"

 

[RoryA]

Where? What code do you have now? It should be:

Sub ref()
On Error GoTo err

Application.ScreenUpdating = False

ActiveSheet.Unprotect Password:="htc"

ActiveWorkbook.UpdateLink Name:= _
"C:\Documents and Settings\OpsTL1\My Documents\May\Misc\Master-April.xls", _
Type:=xlExcelLinks


ActiveSheet.Protect Password:="htc"
Exit Sub
err:
MsgBox ("not") 
End Sub

 

[kashyap]

Oops!!.. I'm sorry.. Its working fine