What called a subroutine>

[Chris Watts]

Is there an easy method to identify from where a vba subroutine is called.
I want to us this to alter how the called subroutine executes. It could
have been called directly as a macro by the user or as a call from another
vba subroutine.
[Excel 2000 and 2007 under Windows XP]

TIA
Chris

 

[Karl E. Peterson]

Is there an easy method to identify from where a vba subroutine is called.
I want to us this to alter how the called subroutine executes. It could
have been called directly as a macro by the user or as a call from another
vba subroutine.

You can look at the Call Stack if you're debugging, but there's no way through code
to access that information. Only option is to create a trail you can follow.

 

[Chris Watts]

You can look at the Call Stack if you're debugging, but there's no way
through code to access that information. Only option is to create a trail
you can follow.

Thanks, Karl.
Plan B it is then!!
cheers
Chris

 

[Steve Rindsberg]

Is there an easy method to identify from where a vba subroutine is called.
I want to us this to alter how the called subroutine executes. It could
have been called directly as a macro by the user or as a call from another
vba subroutine.
[Excel 2000 and 2007 under Windows XP]

Sub MySub (Optional sCaller as String = "")
If Len(sCaller) = 0 Then
' Do the thing you want to do when called by the user
Else
' Do the other thing
MsgBox sCaller
End If
End Sub

Sub TestMySub()
MySub "TestMySub"
End Sub

 

[Chris Watts]

Ah very cunning!
Thanks, Steve
cheers
Chris

Is there an easy method to identify from where a vba subroutine is
called.
I want to us this to alter how the called subroutine executes. It could
have been called directly as a macro by the user or as a call from
another
vba subroutine.
[Excel 2000 and 2007 under Windows XP]

Sub MySub (Optional sCaller as String = "")
If Len(sCaller) = 0 Then
' Do the thing you want to do when called by the user
Else
' Do the other thing
MsgBox sCaller
End If
End Sub

Sub TestMySub()
MySub "TestMySub"
End Sub

 

[Karl E. Peterson]

Ah very cunning!

Yeah, that's the "Hänsel und Gretel" approach I referred to. <g> You could take it
to the next step, and create your own programatic call stack. (There are lots of
class-module based stack examples out there.) You just push the current routine
onto the stack on entry, and pop it back off on exit. Requires extreme discipline,
though.

Creating a Stack
http://msdn.microsoft.com/en-us/library/aa227509(VS.60).aspx

--
..NET: It's About Trust!
http://vfred.mvps.org

Is there an easy method to identify from where a vba subroutine is
called.
I want to us this to alter how the called subroutine executes. It could
have been called directly as a macro by the user or as a call from
another
vba subroutine.
[Excel 2000 and 2007 under Windows XP]

Sub MySub (Optional sCaller as String = "")
If Len(sCaller) = 0 Then
' Do the thing you want to do when called by the user
Else
' Do the other thing
MsgBox sCaller
End If
End Sub

Sub TestMySub()
MySub "TestMySub"
End Sub