enter time when shape is clicked

[Dgwood90]

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

 

[Gary''s Student]

Assign the following macro to the Shape:

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

Adjust the address to suit.