prode

angelcrisnor respondió: El problema es que la fecha hay que transformarla de formato string a formato fecha. Tienes que ponerlo así: Private Sub Workbook_Open() If Date > DateValue("24/04/2010") Then ...A... Else ...B... End If End Sub

angelcrisnor respondió: ' Se pueden hacer muchas cosas para lo que necesitas, pero el siguiente es un ejemplo que te puede servir y que espero que lo puedas personalizar a tu gusto. ' ' 1º MACRO PARA BORRAR UN FICHERO EN UN DISCO (O EN CUALQUIER CARPETA) Te copio más abajo...