VB (in Excel): On Error GoTo <Label> gives "Compile Error: Label not defined" - Why?

Question

Private Sub ExecuteNames_Click()
'
On Error GoTo Trapit ' this is the line that causes the error
'
' all kinds of well working stuff happening here......
'
End Sub
___________________________

Trapit:
' Intention: if error =13 then run FormatFehler
Exit Sub
End Sub
_________________________

Private Sub FormatFehler()
MsgBox "Date FORMAT must be like 09-SEP-06", vbExclamation, "Auto Payroll"
End Sub

Answer 1

The Trapit needs to be a part of the Sub, so change the first End Sub to Exit Sub.

Like So:
Private Sub ExecuteNames_Click()
'
On Error GoTo Trapit ' this is the line that causes the error
'
' all kinds of well working stuff happening here......
'
Exit Sub

Trapit:
' Intention: if error =13 then run FormatFehler
Exit Sub
End Sub


Private Sub FormatFehler()
MsgBox "Date FORMAT must be like 09-SEP-06", vbExclamation, "Auto Payroll"
End Sub

Answer 2

Excel Vba Goto Label

Answer 3

You Are VBA for Programming. I think you should remove the Line No 7 (End Sub) beacuse VB dosen't Support this use of Label. Though i have checked the program by removing that line. If the problem persists contact me.

Good luck! But don't forgat to thank me.

Answer 4

Boss is in the office, will have to look for links later, but here are a few I love when drunk: Home for a rest (agreed with above poster) F*ck you I'm drunk Kiss my irish ash 1 burbon, 1 scotch, 1 beer Friends in low places B-ee-r Run the F*ck you I'm drunk one is now stuck in my head.... F*ck you I'm drunk F*ck you I'm drunk pour my beer down the sink I've got more in the trunk F*ck you I'm drunk & I'm going to be drunk until the next time I'm drunk... LOL I quit drinking. 5 months sober, now I really want one....music is very powerful, LOL. No, I'm not an alcoholic, but my partner is. Its a supportive quitting.