Ligeledes et datospørgsmål, når jeg har emailet et regneark

If DateValue(Sheets("Ark1").Cells(3, 3)) = DateValue(Date) Then
        StartTimer
End If

husk at henvise til arknavnet i workbook_open.

Hej Bak:
Jeg har gjort som du skrev. Det har fjernet en fejl men så dukker en anden op:
If Now <= Sheets("Plan").Cells(3, "c") Then Range("j5:j26").Interior.ColorIndex = xlNone: GoTo vent

For t = 5 To 26

If Sheets("Plan").Cells(t, 8) <> "" Then Sheets("Plan").Cells(t, 10).Interior.ColorIndex = 4: GoTo ud

If Sheets("Plan").Cells(t, 10) = "" Then Sheets("Plan").Cells(t, 10).Interior.ColorIndex = xlNone: GoTo ud

If Sheets("Plan").Cells(t, 10).Value <= Time + TimeSerial(0, 45, 0) Then Sheets("Plan").Cells(t, 10).Interior.ColorIndex = 3: GoTo ud

If Sheets("Plan").Cells(t, 10).Value <= Time + TimeSerial(1, 0, 0) Then Sheets("Plan").Cells(t, 10).Interior.ColorIndex = 6: GoTo ud

If Sheets("Plan").Cells(t, 10).Value <= Time + TimeSerial(2, 0, 0) Then Sheets("Plan").Cells(t, 10).Interior.ColorIndex = 8: GoTo ud

Sheets("Plan").Cells(t, 10).Interior.ColorIndex = xlNone

ud:

Next

vent:

RunWhen = Now + TimeSerial(0, 0, 1) ' Chekker hver sek

Application.OnTime RunWhen, "StartTimer", , True

Sheets("Plan").Range("C2").Value = Format(Time, "hh:mm:ss") '**



End Sub


Førstegang,"Time" dukker op, bliver der fejl,om det har nogetmed hinanden at gøre,ved jeg ikke?

mvh Johnny

Jeg får forøvrigt også fejl på:

If DateValue(Sheets("Plan").Cells(3, 3)) = DateValue(Date) Then
        StartTimer
End If

der hvor der står (Date)

prøv lige at sende arket til excel snabela tbdl.dk

sendt retur. jeg fik også fejl, men det skyldes at der er sat reference til et program, jeg ikke har, nemlig Redemption_Outlook.
Ellers virker det for mig.
Check at du er i besiddelse af programmet og at det er korrekt installeret.

Hej bak:
Du har ret med Redemtion, totalt glemt program:-)

Virker fint nu, send et svar, så jeg kan give dig point.

Tak for hjælpen

Johnny

ok :-)