Thursday, April 13, 2017

Excel 2007 auto Refresh spreadsheet to update NOW()

place the below shown code in ThisWorkbook

Private Sub Workbook_Open()
    Call Application.OnTime(Now + TimeValue("00:00:01"), "AutoCalculate")

End Sub


and the AutoCalculate macro in the VBA project


Sub AutoCalculate()
' AutoCalculate Macro
    Calculate
    Call Application.OnTime(Now + TimeValue("00:00:10"), "AutoCalculate")
End Sub



The above macro calls itsefl every 1 minute and 5 seconds



https://sites.google.com/site/excelforbeginners/Home/vba-codes/clock-with-automatic-refresh




https://www.google.com/search?rlz=1C1CHFX_en__601__687&espv=2&biw=1439&bih=768&q=excel+auto+refresh+now()&sa=X&ved=0ahUKEwj32MvPkZ_TAhVRFMAKHfyFD78Q1QIIdygH