Live clock in excel

Hi,

I was using the below VBA code for showing the live clock in the worksheet, but after certain time it stops updating. Please check and let me know what could be the reason.

Dim etad As Date

Sub kcolc()
    ThisWorkbook.Worksheets("Price Finder").Range("G5").Value = Now()
    etad = Now + TimeValue("00:00:01")
    Application.OnTime etad, "kcolc"
End Sub

Regards,
Seemanth