title: VBA Time(Now) type mismatch error
body: <p>I have an issue with the following code, it returns a type mismatch error message every time I open the file. The problem is that the file works fine on some PC's while, on my laptop, it triggers this error.</p>
  
  <pre><code>Private Sub Workbook_Open()
  
  Sheets("Report").Unprotect
  '
  If Date &lt;&gt; Sheets("Report").Range("A1") Then
  
  If Time(Now) &gt;= 6 Then
  
  Sheets("Report").Range("A1").Value = Date
  Sheets("Report").Range("C3").Value = 0
  
  End If
  End If
  
  Sheets("Report").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
          , AllowSorting:=True, AllowFiltering:=True
  
  End Sub
  </code></pre>