Paul,

This is exactly was I was looking to do. Your a genius, thanks a milliion


"Paul B" wrote:

Here is one way,

Private Sub Workbook_Open()
'will go to todays date on open, dates in column A,
'of sheet named sheet1
On Error Resume Next
Sheets("Sheet1").Select

ThisDay = DateValue(Date)
Range("A1").Select
i = 0
Do While ActiveCell.Offset(i, 0).Value < ThisDay
i = i + 1
Loop
Application.Goto Reference:=ActiveCell.Offset(i, 0), _
scroll:=True
End Sub



To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is at the top-left of the spreadsheet this will
open the VBA editor to the thisworkbook module, then, paste the code in the
window that opens on the right hand side, press Alt and Q to close this
window and go back to your workbook, now this will run every time you open
the workbook. If you are using excel 2000 or newer you may have to change
the macro security settings to get the macro to run. To change the security
settings go to tools, macro, security, security level and set it to medium
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"delete automatically" wrote
in message ...
I looked at advance filter but not sure what to do with it

"Teethless mama" wrote:

Take a look Advanced Filter


"delete automatically" wrote:

I have a schedule made in excel for my employees for each day from now
until
2010. When the employees look at the schedule they have to scroll down
until
they find todays date. My question is, when they open excel, can todays
date
automatically be on the top row or can the past dates be deleted
automatically?