CODE FOR CHANGING THE NAME OF COMMAND BUTTON

Private Sub CommandButton1_Click()

If CommandButton1.Caption = "Start" Then

CommandButton1.Caption = "End"

Sheet1.Range("A1").Value = Format(Time, "long time")

ElseIf CommandButton1.Caption = "End" Then

CommandButton2.Caption = "Start"

Sheet1.Range("B1").Value = Format(Time, "long time")

End If

End Sub