Hello everyone. I have a series of Yes/No message boxes which pop up during an automation. The message boxes ask whether several files need to be updated. If the user selects yes, the file is Open. I need to correct the code so that the other submacros in the automation are halted, untill the selected files are closed (and saved at closing) by the user. After closing the file, the automation will then continue. Please see the code below for an example.
Sub Update_QA()
Dim sPath1 As String
Const sFileInp1 As String = "QA.xlsm"
Dim YesNO_QA As String
Dim Question As String
Dim wb1 As Workbook
sPath1 = fPath & fDate & "_157\" & "Support_Summaries\"
Question = "Do You Need to Update THE QA File?"
YesNO_QA = MsgBox(Question, vbQuestion + vbYesNo, "???")
If YesNO_QA = vbNo Then
MsgBox "Ok"
Else
Set wb1 = Workbooks.Open(sPath1 & sFileInp1)
End If
End Sub
There are only 8 submacros in the automation.
Bookmarks