Ignore Msg popup

[tiomin]

I have a Summary Workbook that gathers data from many workbooks in a particular directory. Macro created to go to the directory, open each workbook, gather the data from particular cells, then closes the workbook and onto the next workbook. Works well. However, each workbook has a sub routine Workbook_BeforeClose to check a range of cells to see if all the data are present. If not a MsgBox pops up to let the user know (but it still allow the user to close and save the workbook).

Since we could be dealing with hundreds of workbooks the macro to extract the data in the Summary workbook may encounter many MsgBox pop ups that has to be clicked to close before the next workbook is opened. Any way I can use VB to automatically get rid of these MsgBoxes when they pop up?

Thanks

 

[VoG]

You can stop the BeforeClose code running like this

Application.EnableEvents = False
'
'your code
'
Application.EnableEvents = True

 

[tiomin]

Perfect!!!

Thanks!