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