Workbook Open Event

S

sgrech

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
 
G

Guest

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
 
Top