Countdown _ Timer

[mmn1000]

Hi,
Using the following code, a countdown is performed in sheet 1.

Sub Start_Timer()
    'Check if the timer is finished and exit the macro if it is
    If Range("H7").Value = 0 Then Exit Sub
    
    'Add 1 second from the timer
    Range("H7").Value = Range("H7").Value - TimeValue("00:00:01")
    
    'Set when the macro should run again - should be the same time value
    'as the previous line.
    interval = Now + TimeValue("00:00:01")
    
    'Make this macro run again in 1 second
    Application.OnTime interval, "Start_Timer"

End Sub

How do I change this code to display a message or exit Excel after the count is complete?

 

[hungtbatman1]

Try it

Sub Start_Timer()
    'Check if the timer is finished and exit the macro if it is
    If Range("H7").Value = 0 Then
        MsgBox "The fun is over"
    Else
  
    'Add 1 second from the timer
        Range("H7").Value = Range("H7").Value - TimeValue("00:00:01")
      
        'Set when the macro should run again - should be the same time value
        'as the previous line.
        interval = Now + TimeValue("00:00:01")
      
        'Make this macro run again in 1 second
        Application.OnTime interval, "Start_Timer"
    End If
End Sub