This is what you can do :-

Sub test
  Dim test1 as long, test2 as long
  test1 = Timer
  'Your VBA statements here
  test2 = Timer
  Msgbox "The entire process took " & (test2 - test1) & " seconds."
End Sub
You might want to further convert the total time in to hours and minutes.


Hope this helps.


Deepak