Buenas tardes, Dante Amor:
En un libro excel, en el evento Open, tengo el siguiente código:
Private Sub Workbook_Open()
Dim N As Integer
Dim Texto As String
On Error GoTo Siguiente
For N = 2 To 62
If Cells(N, 9) - Now < Range("R1") Then Texto = Texto & Cells(N, 6) & Chr(13)...