Sub UpdateCell()
    Range("A1").Calculate
    Application.OnTime Now + TimeValue("00:00:5"), "UpdateCell"
End Sub