Sub Suba()
Call Subb
End Sub
Sub Subb()
Call Subc
End Sub
Sub Subc()
Dim X As Integer
MsgBox "I'm here"
For X = 1 To 10
If X = 5 Then Call Suba
Next
End Sub
Note that I added the "Call"s for the purposes of this example even though they aren't necessary.On Error GoTo NextBadLine