I assume you mean the exit  Sub, not "Exit For" ...

You can't do it with a single command. You'll need to write the exit code
in the caller yourself.

After:
Call Second(k)
a line such as:
If k = 3 Then Exit Sub
should do it.

But your example may be a bit more complicated, so another solution is
to set up a variable in the Declarations portion of the module (the
top) like:
Dim CarryOn As Boolean
then very early on in First() have the line:
CarryOn = True
and in Second() after
If u = 3 Then
include:
CarryOn = False
in the If statement
and finally in First() after the line
Call Second(k)
have:
If Not CarryOn Then Exit Sub

I would do something like this:



Sub First()

For cnt = 1 To 5

k = k + 1

If Second(k) Then

Exit Sub

End If

Debug.Print "k--" & k

Next cnt

End Sub



' Change this to a Function instead of Sub.

' Return True when we should exit  both functions.

Function Second(ByVal u As Single) as Boolean

If u = 3 Then

Second = True

Exit Function 'Exit Second procedure

End If

Debug.Print "u--" & u

Second = False ' This line is not necessary in VBA

' ...because False would be the default return value anyway.

' ...(This is not the case in future VB versions...)

End Function

You can use End to terminate all macros.

So Simply, yet So Beautiful. The ART of programming.