The only way I know how to do that is

sub aaa()
Const strProcedure As String = "aaa"
......
msgbox strProcedure
End Sub



"tom taol" wrote:



sub aaa()
~~~~~
msgbox currentProcedureName
end sub

thus, i want to show aaa in messagebox.

*** Sent via Developersdex http://www.developersdex.com ***