Cosa intendi per "si aggiornasse", quella Function lo fà già ogni volta?
Forse intendi avere una lista di quelli che aprono il files in futuro?
In un Modulo...
Sub Auto_Open()
Dim Ur
' Devi scegliere un foglio con due colonne vuote, ammettiamo che sia Foglio1 colonne A+B
Ur = Sheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Foglio1").Cells(Ur + 1, 1) = Environ("UserName")
Sheets("Foglio1").Cells(Ur + 1, 2) = Now
End Sub