grabar automaticamente el nombre de la celda A1

Private Sub Workbook_Open()
    If Range("Hoja1!A1").Value = Empty Then
       Range("Hoja1!A1").Value = ThisWorkbook.Name
       Range("Hoja1!A2").Value = Now()
    End If
End Sub

con alt f11 (ok) pincha en This workbok, despues arriba aparecen dos zonas " (General)" y "(Declaraciones)"
pincha en general y cambiala a WorkBook, y automaticamente aparece en la otra Open
y ya aparece
 Private  Sub Worbook_Open()
End Sub
en medio copia la funcion.
de todos modos esta funcion solo se "dispara"  al abrir el excel.
es decir guardas el excel con el nombre que quieras y cuando lo abras otra vez entonces es cuando verifica que la celda a1 no tenga valor y es entonces cundo escribe en a1 el nombre y en a2 la fecha y la hora actual (no la del fichero).
si deseas que eso no te lo toquen hazlo sobe una hoja oculta y muestra un enlace de esas celdas.