Here's an example:

Sub MakeFloatingCommandbar()
On Error Resume Next
CommandBars("MyCB").Delete
On Error GoTo 0
CommandBars.Add "MyCB", msoBarFloating, , True
With CommandBars("MyCB")
With .Controls.Add(msoControlButton)
.Caption = "Btn1"
.FaceId = 80
.OnAction = "Macro1"
End With
With .Controls.Add(msoControlButton)
.Caption = "Btn2"
.FaceId = 81
.OnAction = "Macro2"
End With
.Visible = True
End With
End Sub


--
Jim
"Don Lowe" wrote in message
...
| How do I create a floating command button?