Workbook Open Event

  • Thread starter Thread starter sgrech
  • Start date Start date
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
 
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
 
Back
Top