Colm

In the ThisWorkbook Module:

Private Sub Workbook_Open()
With ThisWorkbook
.Sheets("Sheet1").Range("B23") = Date
.Sheets("Sheet2").Range("A23") = Date
.Sheets("Sheet3").Range("A2") = Date
'etc
End With
End Sub


--
HTH
Roger
Shaftesbury (UK)



"Colm O'Brien" wrote in message
...
I have a workbook where i want the date to be set in cell b23 to todays
date every time the wkbook is opened.
also every sheet in the workbook has a cell which requires this date but
they are not all b23 can this be done


any help appreciated