You could try an auto open macro, something like
Public Sub Aut

pen()
If Weekday(Date) = 6 Then
Worksheets(1).Range("A1").Value = Format(Date,"dd mmm yyyy"
End If
End Sub
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
secureearl said:
I would like to progam a cell on a work sheet to automatically change the
date once a week on Friday afternoon. The worksheet is a sign in sheet with
the names of all employees.