table of contents

Lorenzo-

 

Try these modifications:

 

TOC Worksheet Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Select Case Target.Address
        Case "$C$3": Sheets("Sheet1").Activate
        Case "$C$4": Sheets("Sheet2").Activate
        Case "$C$5": Sheets("Sheet3").Activate
        Case "$C$6": Sheets("Sheet4").Activate
        Case "$C$9": Call CloseFile
    End Select

End Sub

Workbook Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
       Cancel = True 'Cancel Workbook Close
       Sheets("TOC").Activate
End Sub

Code Module (Insert a new code module):

Sub CloseFile()
    
    Dim Answer As String
    Dim MyNote As String
    
    'Supress Save MessageBox
    Application.DisplayAlerts = False
    Application.EnableEvents = False
     
    'Place your text here
    MyNote = "If you would like to save the file before closing it please click YES, otherwise click NO."
    
    'Display MessageBox
    Answer = MsgBox(MyNote, vbQuestion + vbYesNoCancel, "???")
    
    If Answer = vbNo Then
         'Code for No buttton press
         ThisWorkbook.Close False
    ElseIf Answer = vbYes Then
         'Code for Yes button Press
         ThisWorkbook.Close True
    Else
         'Code for Cancel button Press
         Sheets("TOC").Activate
    End If
    Application.EnableEvents = True
End Sub