zoom to fit to screen

[Roger on Excel]

I have a sheet which is a project summary.

The sheet contains information in cells A1 to P45 inclusive.

Is there a way to make these cells always fill the page whichever computer i
am on so that i can always see A1-P45 inclusive? I find as i use the sheet on
different computers with different screen sizes, it can vary if the screen
shows all the desired contents or not.

Can anyone help?

Thanks,

Roger

 

[Rick Rothstein \(MVP - VB\)]

Does this macro do what you want?

Sub ZoomToFit_A1toP45()
Dim CurrentCell As String
CurrentCell = ActiveCell.Address
Range("A145").Select
ActiveWindow.Zoom = True
Range(CurrentCell).Select
End Sub

Rick

 

[Roger on Excel]

This works very nicely - thanyou very much

Regards,

Roger

Is there a way to make these cells always fill the page whichever computer I
am on so that i can always see A1-P45 inclusive?

Perhaps one way would be to place this on the module for your specific worksheet.

Private Sub Worksheet_Activate()
Dim Remember As Range
Set Remember = Selection

[A145].Select
ActiveWindow.Zoom = True
Remember.Select
End Sub

--
HTH :>)
Dana DeLouis

I have a sheet which is a project summary.

The sheet contains information in cells A1 to P45 inclusive.

Is there a way to make these cells always fill the page whichever computer i
am on so that i can always see A1-P45 inclusive? I find as i use the sheet on
different computers with different screen sizes, it can vary if the screen
shows all the desired contents or not.

Can anyone help?

Thanks,

Roger