Grey bar when menus removed

[Andrew]

Hi - Found the code below (somewhere) which alows user to control which menu
bars etc are shown. It also alows me to get rid of blue windows bar at top
of Excel window. This works great on a test xls with nothing in it, but
when I come to apply it to my report system I have set up in XL I get a grey
bar along the top of the screen. The bar covers where the menu items would
have been and also about 8-10mm of the top of the worksheet area itself.

Anyone have any ideas - this would be a great solution if I could get it to
work.

I am using a mixtire of XL 2k and XP (so far only seen the problem in the 2k
version) on Win XP.

Cheers

Andrew

Sub Hide_Everything()

'this hides all commandbars and menus
Dim cBar As CommandBar
For Each cBar In CommandBars
cBar.Enabled = False
Next
'store user settings for later use
'you must have a sheet named "settings"
With ThisWorkbook.Sheets("settings")
.Cells(1, 2).Value = Application.DisplayFormulaBar
.Cells(2, 2).Value = Application.DisplayStatusBar
.Cells(3, 2).Value = ActiveWindow.DisplayHeadings
.Cells(4, 2).Value = ActiveWindow.DisplayHorizontalScrollBar
.Cells(5, 2).Value = ActiveWindow.DisplayVerticalScrollBar
.Cells(6, 2).Value = ActiveWindow.DisplayWorkbookTabs
End With


With Application
'this hides the blue bar at the top
'needs to be ahead of other code that hides stuff
.DisplayFullScreen = True
'this hides the formula bar and status bar
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With

With ActiveWindow
'this gets rid of headings, scrollbars, and tabs
.DisplayHeadings = False
' .DisplayHorizontalScrollBar = False
' .DisplayVerticalScrollBar = False
' .DisplayWorkbookTabs = False
End With

Sheets("start page").Select


End Sub