Hi

Try this event in the Thisworkbook module
I use cell G1 to add a date, you can change that location

See this page if you are new to macros
http://www.rondebruin.nl/code.htm

Private Sub Workbook_Open()
With Sheets("Sheet1")
If .Range("G1").Value = Date Then
'do nothing
Else
.Range("G1").Value = Date
.Range("A5,A6,B7,B9").ClearContents
End If
End With
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Spiros" wrote in message ...
Hi to everyone,
Is there any macro which delete the data in specific cells one time every
day when I opened the excel worksheet.
For example: when I open one worksheet for the first time in 20-9-2008, the
macro will delete the data from cells a5, a6, b7 and b9. If I open the same
worksheet another time in the same day, the macro mustnt be worked.
Thanks in advance.
Spiros