How to close the one workbook if I have multiple workbooks open?

[dmadhup]

Hi Team,
Happy Friday!

I am using following VBA code to close only the workbook I am working on, but this code closes all workbooks which have been opened. Any idea, please.

Dim WbCount As Integer, ii As Integer
WbCount = Workbooks.count

If WbCount > 1 Then
        For ii = WbCount To 1 Step -1
            If Workbooks(ii).Name = ThisWorkbook.Name Then
                Application.DisplayAlerts = False
                Application.EnableEvents = False
                Windows(ThisWorkbook.Name).Close SaveChanges:=False
                Application.EnableEvents = True
                Application.DisplayAlerts = True
            End If
        Next ii
    Else
        Application.DisplayAlerts = False
        Application.EnableEvents = False
        Application.Quit
        Application.EnableEvents = True
        Application.DisplayAlerts = True
    End If

 

[njimack]

Try:

ThisWorkbook.Close False

 

[dmadhup]

No Luck!

I am using office 365 to excel. Is not Windows(ThisWorkbook.Name).Close SaveChanges:=False and ThisWorkbook.Close False same thing?

 

[Fluff]

How about

   Dim WbCount As Long
   WbCount = Workbooks.Count

   If WbCount > 1 Then
      Application.DisplayAlerts = False
      Application.EnableEvents = False
      ThisWorkbook.Close False
      Application.EnableEvents = True
      Application.DisplayAlerts = True
   Else
      Application.DisplayAlerts = False
      Application.EnableEvents = False
      Application.Quit
      Application.EnableEvents = True
      Application.DisplayAlerts = True
   End If

 

[dmadhup]

I think the problem of not working any code is that Excel 2016 opens all workbooks in the same instance. So, it forces to close all....

Don't know how to fix this issue...or it's excel bugs...

 

[Fluff]

If you have more than one workbook open in the same instance then the code I supplied, will only close the workbook containing the macro.
That said, as the code will stop when the workbook closes, EnableEvents & DisplayAlerts will both be switched off.