Hola que tal, quizas no tenga el suficiente conocimiento para responder
tu pregunta correctamente pero al menos lo intentare.
Como se trata de excel, intente ver que era status pero no encontre info
al respecto.
A pesar de eso, tal vez esto te sirva.
Private Sub Workbook_Open()
'Cada vez que abres el libro de excel se aplica esta macros
'Indicas el rango y la hoja desde donde quieres que se haga la busqueda
'hacia abajo.
Sheets("Hoja1").Activate
Sheets("Hoja1").Range("A1").Select
'Que revise solo las celdas que contengan información
Do While ActiveCell <> Empty
If ActiveCell.Value <> 0 Or ActiveCell.Value <> "" Then
Fecha = Date
If ActiveCell.Value = Fecha Then
ActiveCell.Offset(0, 0).Select
Exit Sub
Else
ActiveCell.Offset(1, 0).Select
End If
End If
'Si finalmente se llega a una celda vacia o con un cero, avisa que no
'encontro la fecha y regresa a la celda A1
If ActiveCell.Value = 0 Or ActiveCell.Value = "" Then
MsgBox "No se encontro una celda que contenga la fecha de hoy", vbInformation, "Fecha actual no encontrada"
Range("A1").Select
Exit Sub
End If
Loop
End Sub
Espero te sea de utilidad, y si no pues, al menos lo intente :P bye
