Adjust to Screen Resolution

[Portucale]

Hi,

I am looking for a method that adjust (zoom) the workbook on opening to fit within the screen resolution of the user.

I have been using

 activewindow.Zoom = true

but is not quite right as in higher resolutions only zooms up to 78%.

Any idea/help is very much appreciated,
Thanks in advance,

 

[Hui]

I think you simply need to select a Range first

  Range("B3:J19").Select 'Adjust to suit
  ActiveWindow.Zoom = True

 

[Deepak]

I think this will help.

 

[Portucale]

Thanks guys for the help, in fact just needed the range to be added, Thanks Hui.

Deepak, sorry but for some reason when I perform your solution the zoom stays the same hence no change on different screen resolution... but thanks for the help.