Sub Update_All_Styles_And_Materials() Dim oCM As CommandManager Set oCM = ThisApplication.CommandManager Dim oCD As ControlDefinitions Set oCD = oCM.ControlDefinitions Dim oUpdateStyles As ControlDefinition Set oUpdateStyles = oCD.Item("UpdateStylesCmd") oUpdateStyles.Execute2 (False) AppActivate (ThisApplication.Caption) SendKeys "{Y} + { }" ThisApplication.UserInterfaceManager.DoEvents End Sub