Você pode fazer isso com uma macro. O Workbook_Activate é acionado no evento de carregamento, portanto, isso deve funcionar:
Private Sub Workbook_Activate()
If Not IsEmpty(Range("A1").Value) Then
Range("A1").Value = Date
End If
End Sub
Se isso não funcionar, altere o sub para
Private Sub Workbook_Open()
editar
Atualizei meu código com base no seu comentário, mas isso pode ser uma falha de design. Se você está sempre escrevendo para A1, por exemplo, significa que no dia seguinte haverá um valor. Eu acho que você precisa testar o valor, no entanto, isso é possivelmente mais de matar por um comando tão simples.
Private Sub Workbook_Activate()
If Not Range("A1").Value = Date Then
Range("A1").Value = Date
End If
End Sub
Se fosse eu, eu apenas substituiria o valor toda vez que você carregasse e não se importasse com o cheque, já que não é caro.