| Home |
| Search |
| Today's Posts |
|
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
disabling a message box
Thanks for your help!
-- Regards, timmulla "Tom Ogilvy" wrote: Private Sub Workbook_Open() Application.ScreenUpdating = False ChDir "H:\QuickBooks\Finance\MIP\MONTHLY GL UPLOAD FILES" Workbooks.Open Filename:= _ "H:\QuickBooks\Finance\MIP\MONTHLY GL UPLOAD FILES\Consolidated Programs import MONTHLY GL UPLOAD.xls" Application.Run "'Consolidated Programs import MONTHLY GL UPLOAD.xls'!Macro2" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "H:\QuickBooks\Finance\MIP\MONTHLY GL UPLOAD FILES\Consolidated Programs import MONTHLY GL UPLOAD.txt" _ , FileFormat:=xlText, CreateBackup:=False ActiveWindow.Close SaveChanges:=True Application.DisplayAlerts = True Application.ScreenUpdating = False UserForm1.Show False With UserForm1.cmbprgimpt .AddItem "54000" .AddItem "54001" .AddItem "54002" .AddItem "54010" .AddItem "54020" .AddItem "54040" .AddItem "Consolidated Programs import" End With End Sub -- Regards, Tom Ogilvy "timmulla" wrote in message ... Thanks all for your help! Here's a copy of my code: The code is opening another file and running a macro and then saving it as a text file. Private Sub Workbook_Open() Application.ScreenUpdating = False ChDir "H:\QuickBooks\Finance\MIP\MONTHLY GL UPLOAD FILES" Workbooks.Open Filename:= _ "H:\QuickBooks\Finance\MIP\MONTHLY GL UPLOAD FILES\Consolidated Programs import MONTHLY GL UPLOAD.xls" Application.Run "'Consolidated Programs import MONTHLY GL UPLOAD.xls'!Macro2" ActiveWorkbook.SaveAs Filename:= _ "H:\QuickBooks\Finance\MIP\MONTHLY GL UPLOAD FILES\Consolidated Programs import MONTHLY GL UPLOAD.txt" _ , FileFormat:=xlText, CreateBackup:=False Application.DisplayAlerts = False ActiveWorkbook.Save ActiveWindow.Close Application.DisplayAlerts = True Application.ScreenUpdating = False UserForm1.Show False With UserForm1.cmbprgimpt .AddItem "54000" .AddItem "54001" .AddItem "54002" .AddItem "54010" .AddItem "54020" .AddItem "54040" .AddItem "Consolidated Programs import" End With End Sub Any help would be appreciated. -- Regards, timmulla "bhofsetz" wrote: Tim, Application.DisplayAlerts should take care of getting rid of both of your unwanted message boxes. If you post your code and indicate where the two message boxes are popping up then we may be able to decipher the problem. -- bhofsetz ------------------------------------------------------------------------ bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807 View this thread: http://www.excelforum.com/showthread...hreadid=389381 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Disabling updatelinks | Excel Discussion (Misc queries) | |||
| Displaying a message in a message box without requiring user to click anything to proceed | Excel Programming | |||
| Disabling Alt+F11 | Excel Programming | |||
| Question about disabling message boxes if possible | Excel Programming | |||
| Disabling the Update links message | Excel Programming | |||
Threaded Mode
