Zoom All Sheets to full screen

[skf786]

Hi,

i would like to stretch view of all sheets in an excel file (columns A to P for all sheets) to fit any screen that a user may have. Also when the file opens, the file should be in full screen mode. can i have a code for this please.

thank you in advance!

cheers

khalid

 

[footoo]

Put these 2 procedures in the ThisWorkbook module :

Private Sub Workbook_Open()
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
Range("A:P").Select
ActiveWindow.Zoom = True
[A1].Select
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
Range("A:P").Select
ActiveWindow.Zoom = True
[A1].Select
End Sub

 

[skf786]

Put these 2 procedures in the ThisWorkbook module :

Private Sub Workbook_Open()
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
Range("A:P").Select
ActiveWindow.Zoom = True
[A1].Select
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
Range("A:P").Select
ActiveWindow.Zoom = True
[A1].Select
End Sub

Awesome! this works perfectly. thank you