Quote:
Originally Posted by charlesdh
Hi,
I modified this part of the code.
Code:
On Error Resume Next
Workbooks.Open Filename:=MyPath & "\" & Item & ".xlsx", UpdateLinks:=0
If Err = "1004" Then '' this will be chaned when you determine if you want to create a new vendor workbook
MsgBox " Hi! At this point you need to create a new file for this Vendor will now exit sub"
Exit Sub
End If
|
Didnt change anything, that I saw. Still filters, copies, message box is displayed and thats it.