Search This Blog

Friday 27 January 2012

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

No comments:

Post a Comment