Displaying the Sub or Function Name

[FunkySquid]

Is there anyway of displaying the current sub or function name that is
running?

Something like:

Sub DisplaySubName()
MsgBox ThisSub.Name
End Sub

 

[FSt1]

hi
you can use the status bar.
when writing the sub, you know the name of the sub your are writing.
at the beginning of the sub add this like
application.statusbar = "sub now running = mysub"
at the end of the sub ad this line
application.statusbar = False

the name of the sub will appear in the lower left on the status bar.

Regards
FSt1

 

[Susan]

that's cool. is there any way to have the macro pull out the name
automatically without hard coding it?
just wondering.

susan

 

[FSt1]

hi
I don't think you can while the code is running because you have to run code
to to find the sub name and since you can't run 2 sub at the same time you
would have to incorperated the "find" code into the running sub. and if
using a message box, that would stop code from running while the message box
was up since the message box is modal. best just to use the status bar

Regards
FSt1

 

[Susan]

yes, i see.
i tend to have one "overview" sub (like a userform sub) that calls all
my sub-subs (for lack of a better term) & i could put it in there
before calling each of them (& afterwards). such as:

sub commandbutton1_click()
application.statusbar = "sub now running = find_terms"
Call find_terms
application.statusbar = false
application.statusbar = "sub now running = insert_data"
Call insert_data
application.statusbar = false
end sub

thanks for the info.

susan

 

[FSt1]

looks like you got ahold of that handle pretty good. that should work nicely
for you.

Regards
FSt1