Code so when worksheet is opened, it scrolls to top of page.

[wudhus_kid]

I would like a code so when a tab is clicked to open a worksheet, the worksheet is scrolled to the top of the page, as opposed to being wherever it was left by the previous user.

Any help would be much appreciated.

Many Thanks

 

[Peter_SSs]

wudhus_kid

Try this. Your description just says to the top of the page but doesn't mention scrolling to the left hand side as well. Therefore, you may not want the ScrollColumn line in this code.

If it doesn't do what you want, post back with further details.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Activate()
    <SPAN style="color:#00007F">With</SPAN> ActiveWindow
        .ScrollRow = 1
        .ScrollColumn = 1
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Andrew Poulsom]

In the module for the worksheet:

Private Sub Worksheet_Activate()
    Application.Goto Range("A1"), True
End Sub

 

[wudhus_kid]

Excellent! Thanks very much for your help - works a treat.