Maybe something like this?

Public Sub MatchDates()

If Date = Workbooks("book1").Worksheets("sheet1").Cells(1,
1).Value Then
MsgBox "Dates match"
End If

End Sub

hth

Keith