Custom menu top left

[Pixelpusher]

Hi all.
I have a custom menu that I call on loading and hide standard menus returning on closing workbook. The problem is I can not get my menu to position top left on opening it just floats in the middle. I have tried this code below but nothing. Any ideas please.

Option Explicit

Sub Make_ChartToolbar_Float()
    With Application.CommandBars("Wade")
        .Left = 10
        .Top = 200
        .Protection = msoBarNoProtection
        .Visible = True
        .Position = msoBarFloating

    End With
End Sub

Thanks

[Aflatoon]

Have you tried docking it instead of floating it? (msoBarTop as Position)

[Bob Phillips]

Top left of where?

[Pixelpusher]

Yes tried that it still sits in the middle of the toolbar well

[Pixelpusher]

Hi Xld Top left of the window (toolbar Well)

[Bob Phillips]

Hi Xld Top left of the window (toolbar Well)

Sorry, which window? What is 'toolbar well'?

[Pixelpusher]

Sorry, which window? What is 'toolbar well'?

"Toolbar well" not sure the correct name but the area where toolbars snap into when dragged to top of screen or window.

[Aflatoon]

Do you hide the standard menus before showing that one?

[Bob Phillips]

Try something like

[vba]
Sub Make_ChartToolbar_Float()
With Application.CommandBars("Wade")
.Left = 10
.Top = 200
.Protection = msoBarNoProtection
.Position = msoBarTop
.Left = Application.CommandBars("Formatting").Left _
+ Application.CommandBars("Formatting").Width
.RowIndex = Application.CommandBars("Formatting").RowIndex
.Visible = True
End With
End Sub
[/vba]