Sub Auto_close()

Hola Daniel,

Prueba el siguiente codigo.

Saludos,
KL

Private Sub Auto_close()
Dim msg As String, Y As Integer
Y = Year(Date)

Select Case Date
Case DateSerial(Y, 4, 12) To DateSerial(Y, 6, 20)
msg = "hasta el segundo bimestre"
Case DateSerial(Y, 6, 21) To DateSerial(Y, 8, 30)
msg = "hasta el tercer bimestre"
Case DateSerial(Y, 9, 1) To DateSerial(Y, 12, 26)
msg = "Buen fin de año " & Y
End Select

If msg <> "" Then _
MsgBox "Gracias Profesor Peregrino, " & msg, , "Númenor Lórien"
End Sub



"Daniel Padilla Cañamero"
wrote in message news:

Tengo el siguiente codigo
Private Sub Auto_close()
MsgBox "Gracias Profesor Peregrino, hasta el próximo bimestre", vbOKOnly,
"Númenor Lórien"
End Sub

Pero me gustaria q sea por fechas me explico

Del 12 de abril al 20 de junio diga hasta el segundo bimestre
Del 21 de junio al 30 de Agosto diga hasta el tercer bimestre
Del 01 de Setiembre al 26 de Dieciembre diga Buen fin de año 2006

Espero me puedan ayudar



Saludos Cordiales
Daniel Padilla Cañamero
Lima-Perú