string name same as sub name - dynamic

[crmpicco]

Sub CM_UKtoPortugal_RT()

'... variables for error handling
Const sErrorSource As String = "CM_UKtoPortugal_RT()"



Is there a way to have the string the same name as the Sub name - without hard-coding it?

Picco
http://vbaexpress.com/forum/images/smilies/023.gif

[Bob Phillips]

Sub CM_UKtoPortugal_RT()

'... variables for error handling
Const sErrorSource As String = "CM_UKtoPortugal_RT()"



Is there a way to have the string the same name as the Sub name - without hard-coding it?

Picco
http://vbaexpress.com/forum/images/smilies/023.gif


No.