Closing ActiveWorkbook but not ThisWorkbook

[MistakesWereMade]

My program opens a spreadsheet. I want to close this one using the x symbol without asking me if I'd like to close all other spreadsheets.

I have this written in my ThisWorkbook coding section.

Public swb As String


Private Sub Workbook_Open()


    Application.ScreenUpdating = False
    swb = ThisWorkbook.Name
    ThisWorkbook.Application.Visible = False
    Application.ScreenUpdating = True
    
    SplashUserForm.Show


End Sub


Private Sub WbkClose()
 
If swb <> ActiveWorkbook.Name Then
    ActiveWorkbook.Close = True
    ThisWorkbook.Close = False
End If


End Sub

I want the workbook associated with swb to remain open and not asked to be canceled. I have a separate button in my userform that is used to close this workbook.

 

[MistakesWereMade]

I solved it! Been trying to solve such a seemingly simple issue for a while now. Thought I would post back here in case anyone is ever looking for a solution...

Below is my code in the ThisWorkbook section of my vba scripts.

Private BooleanForClosing As Boolean
Public swb As String


Private Sub Workbook_Open()


    Application.ScreenUpdating = False
    swb = ThisWorkbook.Name
    ThisWorkbook.Application.Visible = False
    Application.ScreenUpdating = True
    
    SplashUserForm.Show


End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)


If swb <> ActiveWorkbook.Name Then
    ActiveWorkbook.Close savechanges:=False
    Application.Visible = False
    UserForm1.Show vbModeless
    If swb = ActiveWorkbook.Name Then
        Cancel = True
        Exit Sub
    End If
End If



End Sub

Cheers