VBA File Import to Another XLSM question

[Pinaceous]

Hi All,

I'm using this code below to have the user import information onto their wook sheet. Working great!

    Dim sFilename As Variant
    Dim wsDest As Worksheet
    ChDrive "S:"
    ChDir "S:\GROUPS\Depts\ADMIN"
    
    sFilename = Application.GetOpenFilename("Excel Files, *.xlsm", , "SELECT File!!")
    If sFilename = False Then
        MsgBox "Not IMPORTING File!!", vbInformation, "ProtectUpdate!"
        Exit Sub
    End If
    
    Set wsDest = ActiveWorkbook.Sheets(10)
    
Application.ScreenUpdating = False
    On Error Resume Next
    With Workbooks.Open(sFilename)
        .Sheets(11).Range("A1:Q178").Copy wsDest.Range("A1:Q178")
        .Close False
    End With

Now, my question is; the file that they are importing is an macro enabled document that has MsgBox pop ups when that document is opened.

How would I disable the MsgBox popup that is part of its

auto open

for this file import because it is unnecessary to open this pop-up for import?



Thank you!

 

[RatExcel]

Have you tried this?

<code>Application.EnableEvents = False</code>

 

[Pinaceous]

I'll try it now, lol, thank you!


It worked!

 

[RatExcel]

Remember to put it back to True once you're done:

<code>Application.EnableEvents = False
Workbooks.Open "Example"</code>
<code>Application.EnableEvents = True</code>

 

[Pinaceous]

Got cha!

I like your http://www.RatExcel.wordpress.com on how to lock your VBA! Great piece of advice!