Deleting "Arrange Side by Side with..." command from Window menuba

Good afternoon,

Can anyone suggest why I can delete all the other commands from the Windows
menu bar, apart from this one. I just want to be able to display the list of
currently open workbooks, but don't seem to be able to get rid of this
command.

The syntax I'm using is:

cbMainMenuBar.Controls("Window").Controls("Compare Side by Side
with...").Delete

Thanks in advance

Pete

If there is only one window, then this menu choice is disabled. So perhaps
this is the source of your problem.

--
Regards,
Tom Ogilvy

"Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
news:7B720B70-4DEA-4BE6-82AF-241168FC82E0@microsoft.com...
> Good afternoon,
>
> Can anyone suggest why I can delete all the other commands from the
Windows
> menu bar, apart from this one. I just want to be able to display the list
of
> currently open workbooks, but don't seem to be able to get rid of this
> command.
>
> The syntax I'm using is:
>
> cbMainMenuBar.Controls("Window").Controls("Compare Side by Side
> with...").Delete
>
> Thanks in advance
>
> Pete
>
>

Tom,

It's there, but it's greyed out - I would like to remove it altogether.

Cheers

Pete



"Tom Ogilvy" wrote:

> If there is only one window, then this menu choice is disabled. So perhaps
> this is the source of your problem.
>
> --
> Regards,
> Tom Ogilvy
>
> "Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
> news:7B720B70-4DEA-4BE6-82AF-241168FC82E0@microsoft.com...
> > Good afternoon,
> >
> > Can anyone suggest why I can delete all the other commands from the
> Windows
> > menu bar, apart from this one. I just want to be able to display the list
> of
> > currently open workbooks, but don't seem to be able to get rid of this
> > command.
> >
> > The syntax I'm using is:
> >
> > cbMainMenuBar.Controls("Window").Controls("Compare Side by Side
> > with...").Delete
> >
> > Thanks in advance
> >
> > Pete
> >
> >
>
>
>

try opening a second workbook (so two are opened) so it is not grayed. Then
see if you can delete it.

--
Regards,
Tom Ogilvy


"Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
news:10239F90-CABD-4447-AB40-608FF7C594EB@microsoft.com...
> Tom,
>
> It's there, but it's greyed out - I would like to remove it altogether.
>
> Cheers
>
> Pete
>
>
>
> "Tom Ogilvy" wrote:
>
> > If there is only one window, then this menu choice is disabled. So
perhaps
> > this is the source of your problem.
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> > "Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
> > news:7B720B70-4DEA-4BE6-82AF-241168FC82E0@microsoft.com...
> > > Good afternoon,
> > >
> > > Can anyone suggest why I can delete all the other commands from the
> > Windows
> > > menu bar, apart from this one. I just want to be able to display the
list
> > of
> > > currently open workbooks, but don't seem to be able to get rid of this
> > > command.
> > >
> > > The syntax I'm using is:
> > >
> > > cbMainMenuBar.Controls("Window").Controls("Compare Side by Side
> > > with...").Delete
> > >
> > > Thanks in advance
> > >
> > > Pete
> > >
> > >
> >
> >
> >

Tom,

No, I can't.

Pete

"Tom Ogilvy" wrote:

> try opening a second workbook (so two are opened) so it is not grayed. Then
> see if you can delete it.
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
> news:10239F90-CABD-4447-AB40-608FF7C594EB@microsoft.com...
> > Tom,
> >
> > It's there, but it's greyed out - I would like to remove it altogether.
> >
> > Cheers
> >
> > Pete
> >
> >
> >
> > "Tom Ogilvy" wrote:
> >
> > > If there is only one window, then this menu choice is disabled. So
> perhaps
> > > this is the source of your problem.
> > >
> > > --
> > > Regards,
> > > Tom Ogilvy
> > >
> > > "Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
> > > news:7B720B70-4DEA-4BE6-82AF-241168FC82E0@microsoft.com...
> > > > Good afternoon,
> > > >
> > > > Can anyone suggest why I can delete all the other commands from the
> > > Windows
> > > > menu bar, apart from this one. I just want to be able to display the
> list
> > > of
> > > > currently open workbooks, but don't seem to be able to get rid of this
> > > > command.
> > > >
> > > > The syntax I'm using is:
> > > >
> > > > cbMainMenuBar.Controls("Window").Controls("Compare Side by Side
> > > > with...").Delete
> > > >
> > > > Thanks in advance
> > > >
> > > > Pete
> > > >
> > > >
> > >
> > >
> > >
>
>
>

Is this working for you

Sub test()
Dim Ctl As CommandBarControl
For Each Ctl In Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30009).Controls
On Error Resume Next
'Ctl.Enabled = False
Ctl.Delete
On Error GoTo 0
Next Ctl
End Sub

Sub test2()
Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30009).Reset
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message news:49FB77E8-0D4D-4B8F-B624-D0D0CD9FD2EA@microsoft.com...
> Tom,
>
> No, I can't.
>
> Pete
>
> "Tom Ogilvy" wrote:
>
>> try opening a second workbook (so two are opened) so it is not grayed. Then
>> see if you can delete it.
>>
>> --
>> Regards,
>> Tom Ogilvy
>>
>>
>> "Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
>> news:10239F90-CABD-4447-AB40-608FF7C594EB@microsoft.com...
>> > Tom,
>> >
>> > It's there, but it's greyed out - I would like to remove it altogether.
>> >
>> > Cheers
>> >
>> > Pete
>> >
>> >
>> >
>> > "Tom Ogilvy" wrote:
>> >
>> > > If there is only one window, then this menu choice is disabled. So
>> perhaps
>> > > this is the source of your problem.
>> > >
>> > > --
>> > > Regards,
>> > > Tom Ogilvy
>> > >
>> > > "Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
>> > > news:7B720B70-4DEA-4BE6-82AF-241168FC82E0@microsoft.com...
>> > > > Good afternoon,
>> > > >
>> > > > Can anyone suggest why I can delete all the other commands from the
>> > > Windows
>> > > > menu bar, apart from this one. I just want to be able to display the
>> list
>> > > of
>> > > > currently open workbooks, but don't seem to be able to get rid of this
>> > > > command.
>> > > >
>> > > > The syntax I'm using is:
>> > > >
>> > > > cbMainMenuBar.Controls("Window").Controls("Compare Side by Side
>> > > > with...").Delete
>> > > >
>> > > > Thanks in advance
>> > > >
>> > > > Pete
>> > > >
>> > > >
>> > >
>> > >
>> > >
>>
>>
>>