Your best bet may be to let the user do it through the Windows user
interface. You can pop open the Display Properties dialog like this:

Sub a()
SendKeys "^{Pgup}"
Shell "rundll32 shell32,Control_RunDLL desk.cpl"
End Sub

The purpose of the SendKeys is to switch to the Settings tab of the dialog.
It works for me but is never completely reliable. I haven't found another
way to open the dialog to this tab but that doesn't mean there isn't one.


--
Jim Rech
Excel MVP