Edit code to close all workbooks except active workbook and other specific workbook

Hello guys, can anyone help me edit this code, currently it closes all workbooks except the active one, I want it to close all except active workbook and another specific workbook.

I tried editing the code to close active workbook and another specific workbook using array, but it doesnt work.

Please help out.

Below is current code

Function CloseAll()

Dim wkbk As Workbook
  
Application.ScreenUpdating = False
 
'On Error GoTo errhandler

 For Each wkbk In Application.Workbooks
     If wkbk.Name <> Array(ActiveWorkbook.Name, "OTHERWORKBOOK.xlsm") Then
         wkbk.Close savechanges:=False  'or make it true
     End If
 Next
 
'errhandler:
'For Each wkbk In Application.Workbooks
     'If wkbk.Name <> ActiveWorkbook.Name Then
         'wkbk.Close savechanges:=False  'or make it true
     'End If
'Next
'Exit Function

'Application.ScreenUpdating = True

End Function

Thanks all.

Hi JP,

Thanks for replying,

I tried your code, the original code kept the activeworkbook open but closed "OTHERWORKBOOK.XLSM". Apparently the code only takes into account the first workbook only in the line,

Case UCase$ (ActiveWorkbook.Name), "OTHERWORKBOOK.XLSM"

So I edited the code like shown below, and now it works.

Function CloseAll()

Dim wkbk As Workbook
  
Application.ScreenUpdating = False
 
For Each wkbk In Application.Workbooks
     Select Case UCase$ (Workbooks(2).Name)
         Case UCase$ (ActiveWorkbook.Name)
         Case Else
         wkbk.Close savechanges:=False      
 End Select
Next wkbk

End Function

Thank you very much JP for pointing me in the right direction.