VBA workbook_BerforClose iteration

Private Sub Workbook_BeforeClose(Cancel As Boolean)

   Select Case MsgBox("Library Management System" & vbNewLine & vbNewLine & "Save and Close?", vbOKCancel)
   
' Cancel button pressed, so cancel the close

    Case Is = vbCancel
    Cancel = True
    
' OK button pressed, so save the workbook and close

    Case Is = vbOK
    ThisWorkbook.Close SaveChanges:=True
   
'Close Select Case statement

    End Select

End Sub

This code re-enters the Before_Close routine when it executes the ThisWorkbookClose statement so the Msgbox is output again.

Why ? And can this be avoided ?

Hi
Try

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Select Case MsgBox("Library Management System" & vbNewLine & vbNewLine & "Save and Close?", vbOKCancel)

        ' Cancel button pressed, so cancel the close

    Case Is = 2
        Cancel = True

        ' OK button pressed, so save the workbook and close

    Case Is = 1
        Application.EnableEvents = False
        ThisWorkbook.Close SaveChanges:=True

        'Close Select Case statement

    End Select
    Application.EnableEvents = True
End Sub

All you need to do in the 2nd case is Me.Save. No need to use Application.EnableEvents.

Both solutions work.

Thank you for your help.

Reduced to essentials,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If MsgBox("Library Management System" & vbNewLine & vbNewLine & "Save and Close?", vbOKCancel) = vbOK Then
    Me.Save
  Else
    Cancel = True
  End If
End Sub