Have to do it manually.Create a public variable and set that in each
procedure, like

Dim callProc As String

Sub proc1()

callProc="proc1"
'...
End Sub


Sub proc2()

callProc="proc2"
'...
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"LS" wrote in message
om...
Hi

I have a worksheet with several modules each with several procedures.
I have dealt with all the errors I can anticipate (which means there
must be some that I have not dealt with!) and have handled those with
a common 'if all else fails' error procedure. This will leave the
worksheet in a 'safe', mode ensuring sheets are hidden or protected.

The procedure also generates a message showing Err.Number and
Err.Description, however it would be useful to know which procedure
actually generated the error so that when I get a call about it I know
where to start looking.

I tried using Err.Source but that just gives the name of the entire
project - not the module or better still, the procedure name.
Is this possible?

Thanks

LS