Application.ScreenUpdating = False For Each TBVar In Application.Toolbars If TBVar.Name = sysmltm Then TBVar.Delete: Exit For Next TBVar Application.CommandBars.Add sysmltm, msoBarTop, False, False Toolbars(sysmltm).Visible = True With Application .ShowToolTips = True .LargeButtons = Fals...