Ejecutar macro en una fecha determinada

Hola a todos:

Me han pasado esta macros que se ejecuta correctamente a partir de una
fecha determinada y funciona
correctamente. Quisiera codificarla para para que actué cuando la
fecha esta en la columna C y no en una
sola celda.
He realizado varias pruebas y no lo consigo.

¿Alguno de vosotros me puede ayudar?

GRACIAS


Private Sub Workbook_Open()
Application.DisplayAlerts = f
Dim Fecha As Date
Dim Hoy As Date
Fecha = Format(Worksheets("Diario").Range("C1"), "dd/mm/yyyy")
Hoy = Format(Now(), "dd/mm/yyyy")
If Hoy > Fecha Then
MsgBox "La fecha máxima de uso ya se cumplió, el archivo se cerrará",
vbCritical
Application.DisplayAlerts = True
Application.Quit
End If
End Sub