Static date

Hi guys what I'm trying to do may seem simple but I dont no that much about VBA & I carn't seem to find a answer for what I need it to do. What I'm tring to do is add the current date to a cell without it changing when somebody opens the excel file. I have a master template that when I open it i want it to put the current date (not date & time) in cell B10 (Sheet4, which is called "Tab2") so once I have finshed filling in the data on the work sheet I can save it without the worry of the date changing. I have the current code within "Thisworkbook" that works but it add's the time on which I dont need

Private Sub Workbook_Open()
    Sheets("Tab2").Range("B10") = Now
End Sub

When I change the "Now" to "Date" I get an error which say's it can't find the project or library?

Any ideas how to fix this?

Thanks Pete