Sub snb()
  With CommandBars(1).Controls.Add
    .FaceId = 1244
  End With
End Sub