Changing Window Size

[cadence]

Hello I have two worksheets and want the window to change size each time the worksheet is changed.

I cant seem to get it to trip. This currently sits in my thisworkbook.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Private Sub Worksheet_Change(ByVal Target As Range)
'Private Sub Worksheet_Calculate()
If ActiveSheet.Name = "Schedule" Then
With ActiveWindow
.Width = 1097
.Height = 792
ActiveWindow.Zoom = 100
If ActiveSheet.Name = "Budget" Then
With ActiveWindow
.Width = 952
.Height = 725 '772
ActiveWindow.Zoom = 125
End If
'End If
End Sub

thanks

 

[schielrn]

Why not put each separate code in a worksheet_activate event inside each of the 2 worksheets code?

One other thing to note is that if you are comparing a sheet name it is case sensitive.

Hope that helps.

 

[cadence]

good Idea I'' give it ago