Hi Dave

That's it exactly!

Thank you very much guys

S


-----Original Message-----
maybe just:

On Error Resume Next
Application.CommandBars("worksheet menu bar") _
.Controls("Financial &Manager").Delete
On Error GoTo 0

(if I understood correctly)



wrote:

Hi Rob

Thanks for that. With your help I managed to put
together
the code below. But when I ran it displayed the Gotcha!
and deleted the dropdown options from the menu I wanted
to remove, but the header is still there!!

Sub ListAllMenubars()

Dim bar As CommandBar

For Each bar In Application.CommandBars

ActiveCell.Offset(1, 0).Select
ActiveCell.value = bar.Name

If bar.Name = "Financial &Manager" Then
MsgBox "Gotcha!"
bar.Delete
End If
Next

End Sub

-----Original Message-----
I have some examples of commandbars on my website.

If you've set the Tag property on a control, you can
use
the .Find method of
Controls to find using Tag parameter.

--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Sophie" wrote
in
message
...
Hello Everyone!

A spreadsheet that I've used has set up a new drop
down
menu at the top of my Excel application. (Like File,
Edit
etc). Now I want to get rid of it.

I've had a good look through the postings on here
and
can't find a way. I think I need to somehow list all
the ??msoControlDropdown?? options then delete the
name
of the one I don't want. But everything on here
seems
to
refer to adding and deleting a specific name that
you
already know!

If anyone could help I'd be very grateful

TIA

Sxx



.


--

Dave Peterson

.