Two minor modifications:

Private Sub Workbook_Open()
Dim c
Worksheets(1).Activate
With Worksheets(1).Range("a1:a500")
Set c = .Find(Date, LookIn:=xlValues)
If Not c Is Nothing Then
Range(c.Address).Select
End If
End With
End Sub

would have worked in the last example if you were on the first sheet in the
workbook and that was where the dates were.

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Stephen Christian" wrote:

I would like to use the today function as a starting point and scrolling down
list the previous 70 weekdays, (25-7-2009 format), in a way that every time
the workbook is opened it is automatically done.

Many thanks

Stephen Christian