change the 3rd argument of the commandbars.add to false
(you want a "toolbar" not a "menubar"

also note that the deletebar works better
when you precide it with application.


Option Explicit

Private Const CStCmdBar As String = "Platnosci"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
DeleteCommandbar
End Sub
Private Sub Workbook_Open()
CreateCommandbar
End Sub

Sub CreateCommandbar()
Call DeleteCommandbar
With Application.CommandBars.Add(CStCmdBar, msoBarFloating, False,
True)
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("Formatting").RowIndex
.Protection = msoBarNoChangeVisible + msoBarNoCustomize +
msoBarNoMove
With .Controls
With .Add(msoControlButton) ' first button
.Style = msoButtonIcon
.FaceId = 107
.OnAction = "ThisWorkbook.Listaplat"
.TooltipText = "Lista platnosci"
End With
With .Add(msoControlButton) 'second button
.Style = msoButtonIcon
.FaceId = 144
.TooltipText = "Platnosci"
.OnAction = "ThisWorkbook.Platnosci"
End With
End With
End With
End Sub
Sub DeleteCommandbar()
On Error Resume Next
Application.CommandBars(CStCmdBar).Delete
End Sub




--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Przemek wrote :