av8tordude
08-06-2009, 08:51 AM
I have the code below that hides the menu bar and formula bar in 2003. What do I need to add to hide it in 2007?
Sub TitleBarClose()
On Error Resume Next
With Application
.CommandBars("Worksheet Menu Bar").Enabled = False
.DisplayFormulaBar = False
End With
On Error GoTo 0
End Sub
Sub TitleBarOpen()
On Error Resume Next
With Application
.CommandBars("Worksheet Menu Bar").Enabled = True
.DisplayFormulaBar = True
End With
On Error GoTo 0
End Sub
Sub TitleBarClose()
On Error Resume Next
With Application
.CommandBars("Worksheet Menu Bar").Enabled = False
.DisplayFormulaBar = False
End With
On Error GoTo 0
End Sub
Sub TitleBarOpen()
On Error Resume Next
With Application
.CommandBars("Worksheet Menu Bar").Enabled = True
.DisplayFormulaBar = True
End With
On Error GoTo 0
End Sub