görmek istediğini hücreye =şimdi() yazın sonra alt+f11 yazın sağda workbook var ona gelin privite active deyin.
Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
End Sub
bunu yazın çalışsın dursun