Workbook Open Event

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

sgrech - 22 Sep 2004 19:16 GMT

Hi,
Upon opening a workbook i want to do a check to see whether the date i
cell A1 in Sheet1 is equal to today.
If it isn't equal then display a msg box saying that the "index price
are out of date please update".

Thanks in advance.
Simo

Reply to this Message

- 22 Sep 2004 20:22 GMT

hi,
add this to the workbook open event
sub chkdate()
Dim dat1 As Date
dat1 = Cells(1, 1)
If dat1 <> Date Then
MsgBox "update the price indexes. NOW!"
End If
end sub

>-----Original Message-----
>
>Hi,
>Upon opening a workbook i want to do a check to see

whether the date in

>cell A1 in Sheet1 is equal to today.
>If it isn't equal then display a msg box saying that

the "index prices

>are out of date please update".
>
>Thanks in advance.
>Simon

Reply to this Message