Adding the time to a userform or command button

[michaeldh]

Mr Excel,

I am trying to add the time to a userform or a command button. I have some code attached which is suppose to achieve this, but fails on Application.Ontime.

If you could suggest some tips, I would really appreciate it.

Michael.

Sub Userform_Activate()

Beginning:
CommandButton1.Caption = Now
Application.OnTime (Now + TimeValue("0:01:00"))
DoEvents
GoTo Beginning

End Sub