How about this, assuming that you give the name "SearchDates" (for example)
to the range of cells containing your dates.

Sub FindCurrentDateCell()

Dim SearchCell As Object

For Each SearchCell In Range("SearchDates")
If SearchCell.Value = Date Then
SearchCell.Select
Exit Sub
End If
Next SearchCell
End Sub

Hope this helps

Pete



Sub FindCurrentDateCell()

Dim SearchCell As Object

For Each SearchCell In Range("SearchDates")
If SearchCell.Value = Date Then
SearchCell.Select
Exit Sub
End If
Next SearchCell
End Sub


"R VAN DEURSEN" wrote:

I have a worksheet with the dates of a month, say 1jan,
2jan, 3jan etc. Is there a way that excel by opening the
workbook selects automaticely the current date.