Viendo esta macro que haz preparado para Luis Carlos: Private Sub Workbook_Open()'Por.Dante Amor Sheets("Hoja1").Select Set b = Cells.Find(Date) If Not b Is Nothing Then Cells(b.Row, "A").Select End IfEnd Sub que por cierto, yo también la necesito....