Changing the name of the Command Button

[Shweta]

Hi All,

I have inserted a command button on sheet1, it named as START
It's coding is:

Private Sub CommandButton1_Click()
Sheet10.Range("e1").Value = Format(Time, "long time")
End Sub

I have inserted another command button on sheet1, it named as END
It's coding is:

Private Sub CommandButton2_Click()
Sheet10.Range("f1").Value = Format(Time, "long time")
End Sub

Now, I want to do this by single command button.When I click on command button1, it's name should be changed to END. and when I click on END, it's name should be changed to START.

I hope I am clear.

Please help me out.

Thanks,
Shweta

 

[cstimart]

Something like this...

Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "End" Then
        CommandButton1.Caption = "Start"
        Sheet10.Range("F1").Value = Format(Time, "long time")
    ElseIf CommandButton1.Caption = "Start" Then
        CommandButton1.Caption = "End"
        Sheet10.Range("E1").Value = Format(Time, "long time")
    End If
End Sub

 

[Shweta]

Thanks Cstimart! But it's not working.

 

[cstimart]

Thanks Cstimart! But it's not working.

Change the CommandButton1 name to "Start" in the properties window, first.

 

[Shweta]

Thanks a lot!

Now it's working.

Regards,
Shweta

 

[cstimart]

Great!