Workbook_Deactivate

[mikeymay]

I have the following code in a module which is executed via a button in a worksheet which is supposed to return Excel to it's normal state

Sub ExitTool()

ActiveWorkbook.Close savechanges:=False

End Sub

Which executes the following in 'ThisWorkbook'

Private Sub Workbook_Deactivate()

Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True

End Sub

Also, when I step through the Deactivate code none of the actions happen on screen. ScreenUpdating is set to TRUE


TIA

 

[starl]

You need to call your clean up before you close the workbook. For example, move the Deactivate code into Sub AppCleanup then call that in your ExitTool before you Close the workbook