You could simplify things even further :-
Sub test
Dim timet1 as single
timet1 = Timer
'Your VBA statements here
Msgbox "The entire process took " & Timer - timet1 & " seconds."
End Sub
just a thought ... !