Setting zoom of 2 sheets equal
 

Hello,
I'm trying to set the zoom value of one sheet ("Sheet2") in a workbook
equal to the zoom value of another sheet ("Sheet1") each time Sheet1 is
activated. I've tried the code below, but z is equal to 60 when
Sheet1's zoom is 80%, and it doesn't change Sheet2's zoom value. What
am I doing wrong? Thanks!

Dim z As Integer
z = Worksheets("Sheet1").PageSetup.Zoom
Worksheets("Sheet2").PageSetup.Zoom = z


--
jbl25
------------------------------------------------------------------------
jbl25's Profile: http://www.excelforum.com/member.php...fo&userid=7225
View this thread: http://www.excelforum.com/showthread...hreadid=382790

Setting zoom of 2 sheets equal
 

Pagesetup is for printing

worksheets("Sheet1").Activate
z = Activewindow.Zoom
Worksheets("Sheet2").Activate
ActiveWindow.Zoom = z

--
Regards,
Tom Ogilvy


"jbl25" wrote in
message ...

Hello,
I'm trying to set the zoom value of one sheet ("Sheet2") in a workbook
equal to the zoom value of another sheet ("Sheet1") each time Sheet1 is
activated. I've tried the code below, but z is equal to 60 when
Sheet1's zoom is 80%, and it doesn't change Sheet2's zoom value. What
am I doing wrong? Thanks!

Dim z As Integer
z = Worksheets("Sheet1").PageSetup.Zoom
Worksheets("Sheet2").PageSetup.Zoom = z


--
jbl25
------------------------------------------------------------------------
jbl25's Profile:
http://www.excelforum.com/member.php...fo&userid=7225
View this thread: http://www.excelforum.com/showthread...hreadid=382790

Setting zoom of 2 sheets equal
 

Do you actually want to change the print zoom, or the view zoom? To change the view zoom:

Dim z As Integer
Worksheets("Sheet1").Activate
z = ActiveWindow.Zoom
Worksheets("Sheet2").Activate
ActiveWindow.Zoom = z

HTH,
Bernie
MS Excel MVP


"jbl25" wrote in message
...

Hello,
I'm trying to set the zoom value of one sheet ("Sheet2") in a workbook
equal to the zoom value of another sheet ("Sheet1") each time Sheet1 is
activated. I've tried the code below, but z is equal to 60 when
Sheet1's zoom is 80%, and it doesn't change Sheet2's zoom value. What
am I doing wrong? Thanks!

Dim z As Integer
z = Worksheets("Sheet1").PageSetup.Zoom
Worksheets("Sheet2").PageSetup.Zoom = z


--
jbl25
------------------------------------------------------------------------
jbl25's Profile: http://www.excelforum.com/member.php...fo&userid=7225
View this thread: http://www.excelforum.com/showthread...hreadid=382790