Open a file from specific folder if msgbox result is NO

[Sufiyan97]

I want a VBA to open an excel file from specific folder if msgbox result is no

Private Sub Workbook_Open()

Dim a As String
Dim b As String

a = MsgBox("Welcome to XXX", vbOKOnly, "XXXX")

a = MsgBox("Are you X", vbYesNo, "XXXX")

If a = vbNo Then
a = MsgBox("Opening X", vbOKOnly, "XXXX")

ThisWorkbook.Save
ThisWorkbook.Close

'And then I want to open a file from specific folder

Else
ThisWorkbook.Save
End If

End Sub

 

[Fluff]

You need to open the other workbook before closing the one with the code.

Private Sub Workbook_Open()

MsgBox "Welcome to XXX", vbOKOnly, "XXXX"

If MsgBox("Are you X", vbYesNo, "XXXX") = vbNo Then
   MsgBox "Opening X", vbOKOnly, "XXXX"
   Workbooks.Open "C:\MrExcel\Test.xlsm"
   ThisWorkbook.Save
   ThisWorkbook.Close
Else
   ThisWorkbook.Save
End If

End Sub

 

[Sufiyan97]

You need to open the other workbook before closing the one with the code.

Private Sub Workbook_Open()

MsgBox "Welcome to XXX", vbOKOnly, "XXXX"

If MsgBox("Are you X", vbYesNo, "XXXX") = vbNo Then
   MsgBox "Opening X", vbOKOnly, "XXXX"
   Workbooks.Open "C:\MrExcel\Test.xlsm"
   ThisWorkbook.Save
   ThisWorkbook.Close
Else
   ThisWorkbook.Save
End If

End Sub

Thank you very much Fluff
Perfect

Yes, Correct I need to open the other workbook before closing the one with the code.

 

[Fluff]

You're welcome & thanks for the feedback.