Timer/StopWatch - How do I make button turn to red and flash when I click Start?

The way my code works now is that the Start and Stop button is one in the same. The button is green. What I would like to happen is that when I click Start and the button changes to Stop I would also like for the color to change to red and to flash.

Code:

---

Sub startStopTimer()
    If Range("timer.button.label") = "Start" Then
        Range("time.stamp.start").Offset(Range("count.of.timestamps") + 1).Value = Now
        Range("timer.button.label") = "Stop"
    Else
        Range("time.stamp.start").Offset(Range("count.of.timestamps"), 1).Value = Now - Range("time.stamp.start").Offset(Range("count.of.timestamps"))
        Range("timer.button.label") = "Start"
    End If
End Sub

---

Thank you in advance for any help,
yeto

Quote:

---

Originally Posted by yeto

The way my code works now is that the Start and Stop button is one in the same. The button is green. What I would like to happen is that when I click Start and the button changes to Stop I would also like for the color to change to red and to flash.

Code:

---

Sub startStopTimer()
    If Range("timer.button.label") = "Start" Then
        Range("time.stamp.start").Offset(Range("count.of.timestamps") + 1).Value = Now
        Range("timer.button.label") = "Stop"
    Else
        Range("time.stamp.start").Offset(Range("count.of.timestamps"), 1).Value = Now - Range("time.stamp.start").Offset(Range("count.of.timestamps"))
        Range("timer.button.label") = "Start"
    End If
End Sub

---

---

The below is a link to the timer which I use and the page includes a link to download the worksheet/spreadsheet if needed.

https://chandoo.org/wp/building-a-si...ed-case-study/

Thank you in advance for any help,
yeto

I have posted this question in a different forum. Please still help if you can.

https://www.ozgrid.com/forum/forum/h...-first-clicked

Hi yeto!
For a simple example, Please refer to the attachment.

Quote:

---

Originally Posted by 大灰狼1976

Hi yeto!
For a simple example, Please refer to the attachment.

---

Thank you for taking time to help. This will be very helpful.