Run Time Error Method close of object Window Failed

[zone709]

HI so recently I have this code below which ends my macro. The vba I use below on my computer works fine and closes the active workbook and doesn't save it like its suppose.

On another computer it started to break in red below. I can not figure out why I tried everything. I even removed that line of code and it didn't break, but left the sheet open. Does anyone have an idea why this is happening on another computer, but not mine or maybe a way around it?

Debug message is "Run Time Error -2147417848 (80010108) Method close of object window Failed

Sub Close10()
Application.DisplayAlerts = False
 Workbooks("Mapping Table.xlsx").Close savechanges:=True
 MsgBox "Fix names in Yellow before running Sheet"
[COLOR=#ff0000] ActiveWindow.Close savechanges:=False  <---------  Debug[/COLOR]
 Application.DisplayAlerts = True
End Sub

 

[Fluff]

Re: Run Time Error Methond close of object Window Failed

Try

ActiveWorkbook.Close False

 

[zone709]

Re: Run Time Error Methond close of object Window Failed

Thank you this works. I wonder why the activae window stopped working on this computer. puzzling

 

[zone709]

Re: Run Time Error Methond close of object Window Failed

So this worked for the other sheet like I said, but i noticed after putting in

ActiveWorkbook.Close False.​

Why does book1 open afterwards. Something is triggering this. I feel like something changed on excel for some reason and that's what made ActiveWindow.Close savechanges:=False to stop working.

 

[Fluff]

Re: Run Time Error Methond close of object Window Failed

You've probably got some event code in one of the workbooks.

 

[zone709]

Re: Run Time Error Methond close of object Window Failed

i actually do, but didnt thikn it was this because i never had an issue and always worked for me.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbooks.Count = 2 Then
    Me.Saved = True
    Workbooks("Personal.xlsb").Saved = True
    With Application
        .DisplayAlerts = False
        .Quit
    End With
Else
    Me.Close False
End If
End Sub

 

[Fluff]

Re: Run Time Error Methond close of object Window Failed

That doesn't open any workbooks, so there must be something else.

 

[zone709]

Re: Run Time Error Methond close of object Window Failed

ok thanks for the reply i am still gonna keep testing it and play the macro till something clicks in my mind what can it be.