Open Each Sheet

[DougRobertson]

Hello,

When preparing a multi-sheet workbook to send, I'd like to have each sheet revert to the Top Left corner, and have cell A1 be active.

I tried Selecting all worksheets, then using

ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Range("A1").Select

but while the A1 select works this way, I have to open each sheet separately, then use the Scroll function.

Is there another way to do this?

Failing that, how do I activate each sheet one at a time, starting at the left tab, then working my way across to the right side?

Thanks in advance,

~ Doug

 

[doofusboy]

This should work for you:

Dim ws As Worksheet
 
    For Each ws In Worksheets
        Application.Goto ws.Range("A1")
    Next ws

 

[DougRobertson]

Very good!

Will this do the same as scrolling to the top left as well, or should I add that.

Also, I'm still a rookie - What does Dim stand for?