Hvorfor virker min tidsfunktion ikke??

Spørgsmål: Nedenstående program skal kun køre om mandagen kl. 18.30.00. Men jeg kan ikke få tidsfunktion til at virke?

Sub PrintSectorView()
Dim Svar As Integer
If WeekDay(Date) = 2 And Time = "18:30:00" Then
Svar = MsgBox("Ønsker du at printe Sector view?", _
vbQuestion + vbYesNo)
If Svar = vbYes Then
ActiveSheet.PageSetup.PrintArea = "$B$10:$E$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
End If

End Sub