Hej! Jag får ett körfel när jag försöker köra

Private Sub Workbook_Open()
Application.Calculation = xlCalculationAutomatic
Application.OnTime Now + TimeValue("00:00:01"), "Klocka"
End Sub

felet stannar vid Application.OnTime Now + TimeValue("00:00:01"), "Klocka".

Jag har ett makro som heter Klocka som skall starta klockan i cell B2 automatiskt när excelfilen öppnas.

Makrot "klocka" ligger i modul 3.

 

Vart kan felet ligga?

OnTime är en metod i Application klassen. Metoden råkar bara ha fått ett namn som följer konventionen för händelser.
Jag förstår iaf vad du är ute efter. lägg till följande sub i en modul

Public Sub ReCalcDateTime()

Dim datReloadAt As Date

ThisWorkbook.Sheets(1).Cells(2, 2).NumberFormat = "YYYY-MM-DD HH:mm:ss"
ThisWorkbook.Sheets(1).Cells(2, 2).FormulaR1C1 = Now()
datReloadAt = Now + TimeValue("00:00:01")
Application.OnTime datReloadAt, "ReCalcDateTime", , True

End Sub


ifall du vill att klockan ska triggas av att arbetsboken öppnas lägger du in ReCalcDateTime under Workbook_Open()
Private Sub Workbook_Open()

ReCalcDateTime

End Sub