zoom to fit to screen
 

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

zoom to fit to screen
 

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

[A1:P45].Select
ActiveWindow.Zoom = True
Remember.Select
End Sub

--
HTH :)
Dana DeLouis


"Roger on Excel" wrote in message ...

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

zoom to fit to screen
 

Does this macro do what you want?

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

Rick


"Roger on Excel" wrote in message
...
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

zoom to fit to screen
 

This works very nicely - thanyou very much

Regards,

Roger

"Dana DeLouis" wrote:

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

[A1:P45].Select
ActiveWindow.Zoom = True
Remember.Select
End Sub

--
HTH :)
Dana DeLouis


"Roger on Excel" wrote in message ...
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