Dim i As Integer Dim bIsOpened For i = 1 To Application.Workbooks.Count bIsOpened = bIsOpened Or (Application.Workbooks(i).Name = "SALESORDERDOWNLOAD.XML" _ And Application.Workbooks(i).Path = "C:\_SAP\Extracts\SalesOrd") Next i If bIsOpened Then MsgBox "Target save file is open, Closing file so process can use it.", vbOKOnly + vbInformation, "Cannot have: C:\_SAP\EXTRACTS\SALESORD\SALESORDERDOWNLOAD.xml open and run this process. Close it and try again." Application.DisplayAlerts = False Windows("SALESORDERDOWNLOAD.XML").Activate ActiveWorkbook.Close Application.DisplayAlerts = True
From novice to tech pro — start learning today.