Sub Show_Time()
Worksheets("Sheet1").Range("B2:B3").Calculate
Application.OnTime Now + TimeSerial(0, 1, 0), "Show_Time" 'Update every minute
End Sub
and on the Workbook Object add
Private Sub Workbook_Open()
Application.OnTime Now + TimeSerial(0, 1, 0), "Show_Time" 'Update every minute
End Sub