Save workbook needs to be added Please
Thankyou.
"Vasant Nanavati" wrote:
this.Activate
Save
wb_exit:
etc.
--
Vasant
"Steved" wrote in message
...
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
|