thank you,

this works great
-----Original Message-----
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.

.