Upon opening the WorkSheet, how to check the date

[alghareeb]

I have an excel worksheet which I use to update on weekly basis. A date should always be shown on the report and I should update it as of current. sometimes I forgot to change the date. I want the Worksheet every time I open it to check the date whether the date on the report is as of current. If not, I want the worksheet to alert me with msgbox asking me to change the date.

Thanks for help...

[excel_1982]

On the workbook open or worksheet activate event, you can add code to get current date and time (Now()). Then compare this with the date you have and if the later is older, then display a message box to prompt user to update the date.

[LiamPotter]

Put the following formula into a cell near the cell containing the date you wish to check:

Please Login or Register  to view this content.

Format the cell with that formula so that the format of the date matches the format of the date of the cell containing the date you wish to check. You can also make it white so that this date isn't visible in future, it won't affect the macro.

Put this code into the ThisWorkbook code part of VBA for your workbook:

Please Login or Register  to view this content.

[dgkindy]

Put a command in the THISWORKBOOK

Private Sub Workbook_Open() 
        Range("’sheet1’!A1) = Date 
End Sub  

[LiamPotter]

Put a command in the THISWORKBOOK

Private Sub Workbook_Open() 
        Range("’sheet1’!A1) = Date 
End Sub  

This guy is right - instead of checking when the workbook opens, just make the macro automatically update the date instead.

I'd change the above though to this:

Please Login or Register  to view this content.

[alghareeb]

Many thanks for all for their help
Unfortunately none of the suggested codes works. The way I wantrf it is that once I open the workbook it should go directly to sheet1 and check the dates and should alert me via msgbox in that respect. Hope that someone helps me.