Pregunta simple, ojala sea asi la respuesta

[3pies]

Prueba con este macro (debe llamarse Auto_open, para que se ejecute al abrir el fichero de excel):

Código:

Sub Auto_open()
'Ocultamos el proceso
Application.ScreenUpdating = False
'Siempre que abramos el fichero, nos aparecerá
'en la hoja1 (da igual como se llame la hoja, porque "Hoja1"
'es el nombre que aparece en el módulo de VBA y corresponde a la
'primera hoja del libro, aunque le puedes cambiar el nombre desde VBA)
Hoja1.Select
'Pasamos la fecha de hoy, a una variable llamada "FechaDeHoy"
FechaDeHoy = Date
'Si la fecha de hoy (del sistema), no está en la lista de excel, nos daría
'un error, pero lo solucionamos con esta línea siguiente
On Error Resume Next
'Estas líneas siguientes las hemos obtenido con la grabadora de macros.
'Simplemente hemos sustituido la palabra (o dato) a buscar, por la fecha
'que hemos pasado a una variable.
Cells.Find(What:=FechaDeHoy, After:=ActiveCell, LookIn:=xlFormulas, _
      LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
      MatchCase:=False, SearchFormat:=False).Activate
'Mostramos el proceso
Application.ScreenUpdating = True
End Sub

Salu2