Sub SetPriority() Const ABOVE_NORMAL = 32768 Const HIGH = 128 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'excel.exe'") For Each objProcess In colProcesses objProcess.SetPriority (HIGH) Next End Sub