Save workbook needs to be added Please

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello from Steved

When I use the close button could the below have added please "save" Thankyou.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim this As Worksheet
On Error GoTo wb_exit
Application.EnableEvents = False
Set this = ActiveSheet
Sh.Activate
Range("A5").Activate
this.Activate
wb_exit:
Application.EnableEvents = True
End Sub
 
Back
Top