Resizing a spreadsheet based on screen resolution

[bruty]

Is there any way to change the view size of a spreadsheet dependant on the current systems screen resolution?

I have created a spreadsheet that spans several columns, but I did it on a widescreen monitor with a high resolution. When someone was testing it they mentioned they'd prefer not to keep having to sscroll left or right to view things.

I don't want to make it smaller as then for settings like mine it would be too difficult to read. Any advice would be greatly appreciated.

 

[onlyadrafter]

Hello,

I think this should work. It needs to go into the THIS WORKBOOK code window.

Private Sub Workbook_Open()
    With Sheets("Sheet1")
        Range("A1:P12").Select
        ActiveWindow.Zoom = True
        Range("A1").Select
    End With
End Sub

change refs as required.

 

[bruty]

Hello,

I think this should work. It needs to go into the THIS WORKBOOK code window.

Private Sub Workbook_Open()
    With Sheets("Sheet1")
        Range("A1:P12").Select
        ActiveWindow.Zoom = True
        Range("A1").Select
    End With
End Sub

change refs as required.

Cheers - will give it a go. I take it it doesn't matter which row numbers I give if I am only bothered about the width fitting on?

 

[onlyadrafter]

Hello

the rows will make a difference if you have rows 1:1000, then this will be shown, try

Private Sub Workbook_Open()
    With Sheets("Sheet1")
        Columns("A:P").Select
        ActiveWindow.Zoom = True
        Range("A1").Select
    End With
End Sub

as alternative.

 

[bruty]

Hello

the rows will make a difference if you have rows 1:1000, then this will be shown, try

Private Sub Workbook_Open()
    With Sheets("Sheet1")
        Columns("A:P").Select
        ActiveWindow.Zoom = True
        Range("A1").Select
    End With
End Sub

as alternative.

Cheers