Prevent user from closing excel unless two cells are equal

[Niven]

Hi,

I am creating a timesheet for users to enter their daily working hours as well as an allocation of their total hours worked. The allocation is very important as they work in different projects.

Is there a way I can prevent the workbook from closing and an error message appearing to let them know that their total hours need to equal the hours allocated?

Thanks.
Niven

 

[Niven]

Seems to be working now thanks a mil. I didn't see that! You're been such a great help!

 

[Niven]

Hi,Another dilemma. I have created macros on the timesheet to create a pdf and also to e-mail the doc. Is there a way to include the same message to prevent the user from creating the pdf or e-mailing the doc if the values are not equal as per the previous code? Here is what I have for the pdf and e-mail codes.Sub Create_PDF()'' Create_PDF Macro' Creates a PDF version of the current worksheet'' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\Users\niven\Desktop\Weekly Timesheet.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ TrueEnd SubSub Send_via_email()'' Send_via_email Macro'' Application.Dialogs(xlDialogSendMail).ShowEnd Sub