Hello All (using Excel 2002)

I have a worksheet that contain the days of the month in A20:A51 and data in the columns to the right of it.

I would like to have a macro 1st: to find today's date in A20:A51 and then hide the remaining rows (dates that have not arrived yet) and then save the file.

The 2nd macro I would like to open the file, and then unhide the rows that contain the dates in A20:A51 that are past or equal to today.

I have code from another workbook that opened and closed the rows based on whether a cell was blank or not. I tried inserting =today() where the "" was but I get a compile error. Here is the code:

Sub opendaily()
'
' opendaily Macro
' Macro recorded 6/10/2003 by Mike
'

'
Rows("20:51").Select
Selection.EntireRow.Hidden = False
Range("b20").Select
Cells.Find(What:=today(), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub

Sub closedaily()
'
' Macro recorded 11/23/2003 by Mike

Range("b20").Select
Cells.Find(What:=today(), _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate
Rows(ActiveCell.Row & ":51").EntireRow.Hidden = True
Range("A1").Select
ActiveWorkbook.Save

End Sub
Any help writing the code would be appreciated.
Mike