hola espero que te sirva y que no sea muy tarde ....
por ejemplo supongamos que tienes la macro1 siguiente:
Sub Macro1()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "hola", "Arial Black", 36#, _
msoFalse, msoFalse, 241.5, 85.5).Select
End Sub
ahora supongamos que en la hoja1 celda A1 esta la fecha que quieres comparar
El asunto es como hacer que compare. esto se puede programar al abrir el libro en el evento open:
Private Sub Workbook_Open()
Sheets("Hoja1").Select
fecha = Range("A1").Value
If fecha >= "15/9/2004" Then
Application.Run "ejemplo!Macro1"
End If
End Sub
o si la celda A1 corresponde a un valor que se digita puedes poner la macro en el evento change de la hoja1:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Hoja1").Select
fecha = Range("A1").Value
If fecha >= "15/9/2004" Then
Application.Run "ejemplo!Macro1"
End If
End Sub