Good afternoon Kevin

This should do just what you want:

ActiveWindow.Zoom = 50

This will zoom the currently active to 50%. I have actually linked this command to a scrollbar for an add-in I am compiling, so I have the code available. let me know if you want any more help with this.

HTH

DominicB