Automatically Update a Cell for a Live Countdown

[Summers2007]

I need help creating a countdown from $3,000,000 that auto updates every second to a lower number. I have the macro below that works for updating the sheet every second and it works. But I need the $3,000,000 to drop by $3.94 every second. Any ideas on a simple formula that will allow it to auto-update? Thanks in advance.

Sub CalculateNow()
'a5'
'i.e.
Calculate 'This recalculates all your cell values


Application.OnTime Now + TimeValue("00:00:01"), "CalculateNow"
End Sub

 

[HongRu]

How about this ?

Sub CalculateNow()
    'set A1=$3,000,000 before running the macro
    Range("A1") = Range("A1") - 3.94
    
    Application.OnTime Now + TimeValue("00:00:01"), "CalculateNow"
    
    If Range("A1") < 0 Then
        Application.OnTime Now + TimeValue("00:00:01"), "CalculateNow", Schedule:=False
        MsgBox "the end"
    End If
End Sub

 

[Summers2007]

How about this ?

Sub CalculateNow()
    'set A1=$3,000,000 before running the macro
    Range("A1") = Range("A1") - 3.94
   
    Application.OnTime Now + TimeValue("00:00:01"), "CalculateNow"
   
    If Range("A1") < 0 Then
        Application.OnTime Now + TimeValue("00:00:01"), "CalculateNow", Schedule:=False
        MsgBox "the end"
    End If
End Sub

Worked exactly as needed. Thank you.