Qs: How to get procedure name?

[Yoosha]

Hi,
How can i get prodecure name?

Public Sub PrvName()
MsgBox PRODECURE NAME <-
End Sub

Very thanks.