Hello,

I am currently using a zoom to selection code:

Sub ZoomToSelection ()

Range("A1:H30").select
ActiveWindow.Zoom = True
Range("A1").select

End Sub

Reason for use: I'm using it so that anyone who opens it regardless of screen size/resolution will fit that area perfectly to their monitor

My issue: The width always seems to work on any monitor perfectly however the height never seems to work. I tell it to go to H30 but you can see up to around H50 which is no use!

My Question: Have you any ideas how I can set the range for what I want to be displayed on the screen, and only that range?

Many Thanks,

Adam