Dim Action1Start
dim Action1Finish
'about to start action1 so...
Action1Start = Now()
'code for action1 goes here
'code finishes here
Action1Finish = Now()
msgbox "Action1 started at " & Action1Start & vbnewline & "Action1 Finished at " & Action1Finish