Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DateSignature As Range
Set DateSignature = Cells(1, 5)
If DateSignature = Date Then
Cells(1, 1) = "2000/2"
Cells(3, 1) = "2000/2"
Cells(5, 1) = "2000/2"
End If
Set DateSignature = Nothing
End Sub