enter time when shape is clicked
 

I want users to click a shape when they are done entering data, so that the
current time is entered into another cell.

enter time when shape is clicked
 

Assign the following macro to the Shape:

Sub timeIt()
Range("B9").Value = Time()
End Sub

Adjust the address to suit.
--
Gary''s Student - gsnu200806