Disable alerts

[Legacy 51064]

I am trying to copy some data from workbook1 to workbook2, but I am getting an Alert. The data in workbook1 is linked to other workbooks and the alert is asking me if I want to update workbook2. I do not want to update the information. How do I get rid of that alert?

Thank you

Sub Macro2()

'Deactivates the alerts and screen updates
Application.DisplayAlerts = False

'Creates the Comm reversal
InvoiceID = Sheets("Commissions").Range("L6").Value
Workbooks.Open Filename:= _
"C:\My Documents\Work\Journal Entries\" & InvoiceID

Sheets("JE").Range("A13:F" & Cells(Rows.Count, "O").End(xlUp).Row).Copy
Workbooks("workbook2.xls").Sheets("Commissions").Range("A13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


ActiveWindow.Close

End Sub

 

[Cbrine]

Change this
Workbooks.Open Filename:= _
"C:\My Documents\Work\Journal Entries\" & InvoiceID
to
application.displayalerts = false
Workbooks.Open Filename:= _
"C:\My Documents\Work\Journal Entries\" & InvoiceID
Application.displayalerts = true

HTH
Cal

 

[Legacy 51064]

Cal,

I am still getting the same alert.

 

[Smitty]

Check out the Update Links portion of the Open Method:

UpdateLinks Optional Variant. Specifies the way links in the file are updated. If this argument is omitted, the user is prompted to specify how links will be updated. Otherwise, this argument is one of the values listed in the following table.

Value Meaning
0 Doesn't update any references
1 Updates external references but not remote references
2 Updates remote references but not external references
3 Updates both remote and external references

HTH,

Smitty

 

[Legacy 51064]

Thanks, that make a lot of sense now.

Workbooks.Open Filename:= _
"C:\My Documents\Work\Journal Entries\" & InvoiceID, UpdateLinks:=0