Hi Sandy

You can use a Excel4 macro

See

Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub


Sub ShowRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

See also this page for more info
http://www.rondebruin.nl/ribbon.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Sandy" wrote in message ...
Excel 2007 -The following works just fine :-

Sub DisplayRibbon()

Application.DisplayFullScreen = False

End Sub

However when I do this :-

Private Sub Workbook_BeforeClose(Cancel As Boolean)

DisplayRibbon

******Other code here******

End Sub

the formula bar displays and but not the Menus or Ribbon.

Any ideas?
Sandy