I have an excel file that will be shared by a couple of dozzen people. In
this file I need to have a floating command bar &/or buttons. I have tried
creating a custom toolbar and it works great for my computer but does not
show up for anyone else.

I have taken an example someone recently gave me making modifications to fit
what I had to create a Floating Command Bar (Shown Below). I am guessing that
I have done something wrong, because I get nothing. Please Help!!!

Sub CommandButton97_Click()
'
' CommandButton97_Click Macro
' Macro recorded 5/6/2008 by g141183
'

   Application.Goto Reference:=Worksheets("Master Report").Range("A1"),
Scroll:=True
   
End Sub

-----------------------------------------------------------------------------------------
Sub Scroll31Right()
ActiveWindow.SmallScroll Toright:=31
End Sub

-----------------------------------------------------------------------------------------
Sub Scroll31Left()
ActiveWindow.SmallScroll Toleft:=31
End Sub

-----------------------------------------------------------------------------------------
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 = "Right"
           .FaceId = 80
           .OnAction = "Scroll31Right()"
       End With
       With .Controls.Add(msoControlButton)
           .Caption = "Left"
           .FaceId = 81
           .OnAction = "Scroll31Left()"
       End With
       With .Controls.Add(msoControlButton)
           .Caption = "Main"
           .FaceId = 83
           .OnAction = "CommandButton97_Click()"
       End With
       .Visible = True
   End With
End Sub