StatusBar

[Tronsliver]

OK I'm having trouble having a custom toolbar display a new statusbar message when I run the mouse pointer over the button. I'm using a custom button but the new message "calculate" won't display. Here is the code:

Public Sub AutoRunSheet1()
Toolbars.Add "ClearTools1"
Toolbars("ClearTools1&quot.Visible = True
Toolbars("ClearTools1&quot.Position = xlLeft
Toolbars("ClearTools1&quot.ToolbarButtons.Add_ 229, , "FindDelta", , , "Calculate"
End Sub

Thanks

 

[SkipVought]

Hi,

You ought to be using the CommandBar object - ToolBar is OLD.

   CommandBars("ClearTools1").Delete
    Set myBar = CommandBars.Add(Name:="ClearTools1", _
    Position:=msoBarLeft, Temporary:=True)
    myBar.Visible = True
    Set myControl = myBar.Controls _
    .Add(Type:=msoControlButton, ID:=1)
    With myControl
        .DescriptionText = "Calculates stuff"
        .Caption = "Calculate"
        .OnAction = "FindDelta"
    End With

THe caption works with this - dont know about toolbar.
Skip,
metzgsk@voughtaircraft.com