Sub is this possible

[mole999]

I'm having a big problem with a set of routines (I won't explain them) Is it possible to call a routine from a Sub, and return the ID of the calling Sub (maybe its not worth doing) I want to list each sub entry and a time stamp to be able to focus down on what the issue is

Sub One
Reporting
End Sub

Sub Two
Reporting
End Sub


Sub Reporting
Last Row of reporting page
stamp with calling Sub (ID) and time stamp
End Sub

One 07:00:01
Two 07:00:02

 

[AlphaFrog]

[color=darkblue]Sub[/color] One()
Reporting "One"
[color=darkblue]End[/color] [color=darkblue]Sub[/color]


[color=darkblue]Sub[/color] Two()
Reporting "Two"
[color=darkblue]End[/color] Sub


[color=darkblue]Sub[/color] Reporting(strCaller)
[color=green]'Last Row of reporting page[/color]
[color=green]'stamp with calling Sub (ID) and time stamp[/color]
Debug.Print strCaller & ", " & Now
[color=darkblue]End[/color] Sub

 

[mole999]

Thank you, I didn't know what to search for

 

[=ODIN=]

It seems like that might miss the point Alpha. It seems like they were trying to figure out if there was a way to programatically figure out the sub name so they could just use

Sub One()
Reporting "thisSub.name"
End Sub"

Sub Reporting (strCaller)
Debug.print strCaller & ", " & Now"
End Sub

and paste in

Reporting "thisSub.name"

to each sub without having to manually update the sub name.

EDIT---> I take it back. They seem happy with that. OP Seems happy with that. My bad.

 

[mole999]

It seems like that might miss the point Alpha. It seems like they were trying to figure out if there was a way to programatically figure out the sub name so they could just use

Sub One()
Reporting "thisSub.name"
End Sub"

Sub Reporting (strCaller)
Debug.print strCaller & ", " & Now"
End Sub

and paste in

Reporting "thisSub.name"

to each sub without having to manually update the sub name.

EDIT---> I take it back. They seem happy with that. OP Seems happy with that. My bad.

No need to take it back, having options is always useful. the single use sub identifier is what I am after, easy to comment out or in globally

 

[=ODIN=]

After a bit of googling it seems like there is no way in vba to programitcally get thisSub.name. The great Chip Pearson’s website even has a page about it: http://www.cpearson.com/excel/InsertProcedureNames.aspx

 

[mole999]

Thank you for the research. I had started to implement a label by label identifier. It has shown some issues which have been corrected