Indsæt dags dato

Hej
Jeg vil gerne indsætte dags dato i en celle i mit regneark ifm. at jeg kører min makro. Kan nogen fortælle mig hvorfor min kode ikke virker? Den går i stå ved: Range("B4").Value = Date


  Screenupdate = False
    ActiveSheet.Unprotect
   
    Range("A7").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
   
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
    Range("B4").Value = Date
                           
    Range("B3").Select
   
    ActiveSheet.Protect
    Screenupdate = True