VBA to automate sheet sizing not working

[men5j2s]

Can anyone suggest why this code isn't working?

Is there another way to do it?

I want each sheet to open according to the cells (in columns) that I want visible, so it docent matter what screen size is in use.

Do I need to call the sheets by the names I have given them?


Sub Workbook_Open()

Application.ScreenUpdating = False


Sheet1.Range("a11").Select
ActiveWindow.Zoom = True
Sheet5.Range("a1:n1").Select
ActiveWindow.Zoom = True
Sheet2.Range("a11").Select
ActiveWindow.Zoom = True
Sheet3.Range("a11").Select
ActiveWindow.Zoom = True
Sheet9.Range("a1:n1").Select
ActiveWindow.Zoom = True
Sheet6.Range("a1:s1").Select
ActiveWindow.Zoom = True
Sheet7.Range("a1:n1").Select



Application.ScreenUpdating = True
End Sub

 

[Caleeco]

to call a particular range, this is the format you shoulduse

Worksheets("Sheet1").Range("A1:P1").Select

where "Sheet1" is whatever you have called the sheet (if you changed it from default)

Hopefully that will fix your issue

Caleeco

 

[men5j2s]

Hi Caleeco,

So now I'm getting an error at the command for the 2nd sheet..

Could this be because I'm asking it to select cells on different sheets at the same time?

should I break up the code for each sheet?

Sub Workbook_Open()


Application.ScreenUpdating = False


Worksheets("CRM").Range("A1:I1").Select
ActiveWindow.Zoom = True
Worksheets("SalesLog").Range("A1:P1").Select
ActiveWindow.Zoom = True
Worksheets("Orders").Range("A1:P1").Select
ActiveWindow.Zoom = True
Worksheets("Reporting").Range("A1:P1").Select
ActiveWindow.Zoom = True
Worksheets("Client File").Range("A1:N1").Select
ActiveWindow.Zoom = True
Worksheets("Trends").Range("A1:S1").Select
ActiveWindow.Zoom = True
Worksheets("Compare").Range("A1:S1").Select




Application.ScreenUpdating = True
End Sub

 

[Caleeco]

Hello,

try activating each sheet first, in this format:

Sub Test()

With Worksheets("CRM")
    .Activate
    .Range("A1:I1").Select
    ActiveWindow.Zoom = True
End With


With Worksheets("SalesLog")
    .Activate
    .Range("A1:P1").Select
    ActiveWindow.Zoom = True
End With

With Worksheets("Orders")
    .Activate
    .Range("A1:P1").Select
    ActiveWindow.Zoom = True
End With

End Sub

 

[men5j2s]

No errors, but does nothing..

I even tried using just one section (to fix one sheet only) and put the code in the specific sheet (in the VBA editor), still nothing.

Surely if this works, the top row should be selected when i open right? because even that isn't happening