Get Sub Name In Cell?

[indi visual]

I'm using this to time my subs and input a cell value of how long it took.


Did I write this correctly?


Get_Time

Dim Counter As Single

Counter = Timer

'''my code

Worksheets(2).Range("A65536").End(xlUp).Offset(1).Value = _

Timer - Counter & " seconds."

End Sub


So I can see easily see which sub took how long, how do I get the sub name with the time also?

 

[vijaySharma]

Indi,


Ref the article from Mircosoft for this...


http://msdn.microsoft.com/en-us/library/aa730921.aspx


Also has example code to test Range, Sheet, ReCalc and FullReCalc...


~Vijay

sharma.vijay1@gmail.com

 

[indi visual]

Good stuff in there Sharma, much appreciated.