ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Home and 100% on all sheets in a workbook (https://www.excelbanter.com/excel-discussion-misc-queries/83764-home-100%25-all-sheets-workbook.html)

Roundy

Home and 100% on all sheets in a workbook
 
I am wondering if anyone could help me with some code to set the view
settings for all of my sheets to 100% zoom, and select cell A1...or rather be
in the "control home" position. I could certainly record a macro...but that
can be time consuming and inefficient as I have 64 worksheets in my
workbook. Thanks in advance for the help.

Roundy

Home and 100% on all sheets in a workbook
 
Found the answer and adapted it...so here is what worked.

For Each Sheet In ThisWorkbook.Worksheets
Sheet.Activate
ActiveWindow.Zoom = 100
Range("A1").Select
Next

"Roundy" wrote:

I am wondering if anyone could help me with some code to set the view
settings for all of my sheets to 100% zoom, and select cell A1...or rather be
in the "control home" position. I could certainly record a macro...but that
can be time consuming and inefficient as I have 64 worksheets in my
workbook. Thanks in advance for the help.


Roundy

Home and 100% on all sheets in a workbook
 
I spoke to soon. It does select the cell I request...but the effect I am
looking for is that of Cntrl Home which moves A1 into view? Any help on this
one?

"Roundy" wrote:

Found the answer and adapted it...so here is what worked.

For Each Sheet In ThisWorkbook.Worksheets
Sheet.Activate
ActiveWindow.Zoom = 100
Range("A1").Select
Next

"Roundy" wrote:

I am wondering if anyone could help me with some code to set the view
settings for all of my sheets to 100% zoom, and select cell A1...or rather be
in the "control home" position. I could certainly record a macro...but that
can be time consuming and inefficient as I have 64 worksheets in my
workbook. Thanks in advance for the help.



All times are GMT +1. The time now is 05:16 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com