VBA Close Excel after MsgBox Ok is pressed

[LNG2013]

I am trying to close out of Excel after the Msgbox ok is pressed.

The msg only appears if there is no data. After which I want excel to close out completely.

Sub AStart()

'

Application.ScreenUpdating = False ' Added to speed up the process
Sheets("Data").Cells.Clear ' Clear Data WS in case data was accidnetlally left over.

    Workbooks.Open Filename:="C:\temp\ReportOutput.xls" ' Opens Access exported Excel file
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy ' Select and copy all the data from ReportOutput.xls
    Windows("Report.xlsm").Activate
    Sheets("Data").Select
    Range("A1").Select
    ActiveSheet.Paste    ' Activate and Paste data back over to
    Application.CutCopyMode = False
    'Sheets.Add Before:=ActiveSheet
  
  
 ' This code is being placed so if there is no data to exit any further code and let user no there is no data between that range.
[B]
If Len(Range("A2").Value) = 0 Then
  MsgBox "HELLO!. "
    
      Windows("ReportOutput.xls").Activate
                 ActiveWorkbook.Close
        Windows("Report.xlsm").Activate
                ActiveWorkbook.Close
                SaveChanges = False
                    Application.Quit[/B]

 Exit Sub

End If

    Sheets("PivotTable").Select
    Application.DisplayAlerts = True
    Set PSheet = Worksheets("PivotTable")
    Set DSheet = Worksheets("Data")
    'Define Data Range
    lastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
    LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    Set PRange = DSheet.Cells(1, 1).Resize(lastRow, LastCol)
    'Define Pivot Cache
    Set PCache = ActiveWorkbook.PivotCaches.Create _
    (SourceType:=xlDatabase, SourceData:=PRange). _
    CreatePivotTable(TableDestination:=PSheet.Cells(5, 1), _
    TableName:="PivotTable2")
    

Call AMasterBuild2

End Sub

 

[Micron]

So what's the issue? You get a prompt to save ReportOutput.xls? Then save that workbook, same as the next one.
Some other problem?
AFAIK, when you invoke Quit, unfinished code will continue to run (in certain circumstances, it does in Access vba). So if you get the message box you invoke quit but then you Exit the sub. Not sure what effect that will have. Since you want to quit, the exit shouldn't be necessary. I'd remove it to see what happens.

 

[Jambi46n2]

Something like this perhaps?

ActiveWorkbook.Close SaveChanges:=False

 

[LNG2013]

Thank you both -

I figured it out :

If Len(Range("A2").Value) = 0 Then
  MsgBox "HELLO!. "
   
      Windows("ReportOutput.xls").Activate
                 ActiveWorkbook.Close
        Windows("Report.xlsm").Activate
                ' ActiveWorkbook.Close  - Deleted this Can't exit the application if the workbook is quit
                ' SaveChanges = False  - Deleted this
                    Application.Quit

 Exit Sub

 

[rlv01]

Assuming you are not the user, do you really want to force Excel to quit? What if the user has another workbook open for something unrelated to your macro? Won't that upset your users?