Might wanna try this. The sleep command gives the Display properties some time to open before the enter key is pressed. Also the .Run command comes after the .AppActivate. Hope it works for you. Dim WshSHell set WshShell = CreateObject("WScript.Shell") WshShell.AppActivate("Display Properties") WshShell.Run("Royale.msstyles") WScript.Sleep 5000 WshShell.SendKeys "{ENTER}"