Closing Code

[Brian Matlack]

Hi!
I have this code in my ThisWorkbook objects to reset the Excel application before closing. All of the commands work except the formula bar command.
Why doesn't this code display the formula bar?
[start code]
Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
ActiveWorkbook.Save
ActiveWorkbook.Saved = True
With ActiveWindow
.DisplayHeadings = True
.DisplayOutline = True
.DisplayWorkbookTabs = True
End With
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
Application.CommandBars("Standard").Visible = True
Application.ScreenUpdating = True
End Sub
[end code]
As always any help is greatly appreciated.