Sub CreateAToolbar() Dim TBar As CommandBar Set TBar = CommandBars.Add With TBar .name = "MyToolbar" .Top = 0 .Left = 0 .Visible = True End With End Sub